AltME groups: search
Help · search scripts · search articles · search mailing listresults summary
| world | hits |
| r4wp | 13 |
| r3wp | 170 |
| total: | 183 |
results window for this page: [start: 101 end: 183]
world-name: r3wp
| Group: Core ... Discuss core issues [web-public] | ||
| PeterWood: 20-Oct-2006 | My answer to your first question (from reading http://www.rebol.net/article/0199.html ) >> write %testdata "123456789A123456789B" ;; A simple test file >> fp: open/seek %testdata ;; Open the file in seek mode >> fp: skip fp 19 ;; Move to 20th character >> newval: copy fp ;; Copy the 20th character == "B" >> fp: head fp ;; Position at start of file >> change at fp 10 newval ;; Overwrite 10th character >> copy head fp ;; Check change made == "123456789B123456789B" >> close fp >> fp: open %testdata >> copy fp ;; Check file was changed == "123456789B123456789B" | |
| Izkata: 5-Jul-2007 | Like this? >> print mold get-modes %Fonts.r 'file-modes [status-change-date modification-date access-date owner-name group-name owner-id group-id owner-read owner-write owner-execute group-read group-write group-execute world-read world-write world-execute set-user-id set-group-id full-path] >> print mold get-modes %Fonts.r 'world-write false | |
| Steeve: 25-Oct-2007 | REBOL []
parse-async: func [
file rules
/local port buffer offset getf seek meta & && result
][
port: open/seek/binary file
buffer: clear #{}
offset: 1
getf: func [len][
offset: offset - length? buffer
clear buffer
append buffer copy/part at port offset len
offset: offset + len
]
seek: [(offset: offset + 1)]
..: func [blk] [change/part & compose/deep blk && ]
parse rules meta: [
some [
&: binary! &&: (.. [buffer: (to-paren reduce ['getf length? &/1])
(&/1)]) :& 3 skip
| &: 'skip &&: (.. [seek]) :& skip
| &: 'get word! integer! &&:
(.. [buffer: (to-paren compose/deep [getf (&/3) set [(&/2)] to integer!
as-binary cp buffer]) to end]) :& 4 skip
| &: string! &&: (.. [(as-binary &/1)]) :&
| 'end 'skip
| into meta
| skip
]
]
result: parse/all buffer rules
close port
result
]
if parse-async %15.jpg [
#{FFD8} ; jpeg Header
[
#{FFE0} ;JFIF header
get len 2 ;get data length for the current header
(2 bytes)
"JFIF" ;yeah it's a JFIF (confirmation)
(len: len - 6) len skip ;skip data (len) times
some [
#{FFC0} ;good ! i found the length properties
2 skip ; skip length of this header
skip ; filler ??? always = #{08}
get height 2
get width 2
break ; finished
| #{FF} skip ;skip this header
get len 2
(len: len - 2) len skip
|
[end skip] ;error format
]
| #{FFE1} ;EXIF header
get len 2 ;get length of a header
;... to do
[end skip]
]
to end
][
?? height
?? width
]
halt
| |
| RobertS: 1-Apr-2008 |
Diss'ing IDE's might alienate some Smalltalk folk. I cannot imagine
maintaining an application suite such as I deal with everyday without
an IDE. I just wish it was not eclipse ... Of course only wimps
used a Disk Operating System and real men code in machine codes only
... and real pro's dictated their SNOBOL punch cards to lovely assistants
... and ANT scripts are for sissies. Some must have ridiculed Tcl,
Expect and TK in their day ... but if my IDE can facilitate my efforts
to systematically (key word there) shrirnk company''s codebase as
it becomes more reliable with better test coverage then maybe a refactoring
browser would be a good tool after all. Even better if it is an
integrated part of the IDE, as in Dolphin Smalltalk or Squeak Smalltalk
or Smalltalk/X or Cincom Visual Smalltalk. Not that I couldn't survive
on grep and diff's. But once the codebase is too large for any one
person to author or maintain on their lonesome, a tool that remebers
what you did last and where can be a god-send. If you want to know
hell without an IDE join an actuarial department working in APL.
There you don't even know if they have talent: you just hope most
of it works as each quarter rolls around and try to survive year-end.
But you know they're smart, cuz after all, they're actuaries - and
look at all that APL code in all those files ... of course a few
of them look back wistfully at their student days in C with Borland's
decent IDE. REBOL [
File: %vid-usage.r
Date: 09-Jan-2004
Title: "VID Usage"
Purpose: "VID Usage Tutorial with Runnable Examples"
Version: 1.2.1
Author: "Cybarite"
Edits: RobertS
Source: {
Based on %easy-vid.r by Carl Sassenrath.
Clips from various sites including email that are attributed in the
section
}
library: [
level: 'intermediate
platform: 'all
type: [tutorial]
domain: [gui]
tested-under: [view 1.2.8.3.1 on W2K]
support: none
license: none
see-also: none
]
]
flash "Fetching image..."
read-thru/to http://www.rebol.com/view/demos/palms.jpg%palms.jpg
read-thru/to http://www.rebol.com/graphics/reb-logo.gif%rebo-logo.gif
read-thru/to http://www.rebol.com/view/bay.jpg%bay.jpg
pic: %palms.jpg
unview
customer: make object! [ ; this sets a default customer object in
case the user does not push the samples in order
name: "Rosetta Stone"
date-of-birth: 14-March-1959
]
stylize/master [text-note: txt maroon bold] ; this sets a
default for users who run the samples out of order
; polished is an image that is embedded in this script file
; so that no outside files need to be loaded.
; This technique is used in many of the REBOL samples
polished: load #{
89504E470D0A1A0A0000000D49484452000000670000003808020000006FFB71
8C0000001374455874536F667477617265005245424F4C2F566965778FD91678
0000039B49444154789CCD9BD14E2B310C44F3FFFF521E2AC1C395E00589EF02
5DD8D226713C339EECBD928510A4893D3EF67AB76D7B7E79FEB2D73FAFBDBD1D
36FEEBAF7DBF70FEDABABD0D56F0E1B6E0B6FED7AE81050B2E4F97AF9FED6185
45022048CA2C6920361F1336580B35A63C4E4F12808D378124CE9C81880B186C
14175A1DE9C0C2A2E785B6B64CA62EF6C626330250A932064CB984F3358FA77F
BC7F8CD657685E5FB03415A34B9E3226C1484A1ACA6DB6974597699EFB6C2F4E
C44B92E17454A309F14F348DDD4D5B98195BB2AF6B7E4E545B57FEBAE0415DA0
43EFE62C70B196362285D74C35F0782ECF26A0FC8492E20EAAED6CC35ACE13FC
61646467C69D5715EA4F9D3725B1703BF45AB2768A9D5F59CA6E716E5A747CBF
23D6A7E418C2C53C6EB440FCE803B106E6D94C8AAF4B42694871B9FB237035C8
70E5A0200D4A7E4553E952A6F435BA247DD4B83A5DB18D26AA4D5E39E0CA4107
7B0F86C7F19EC685B5EFE57D28E02E411CC2238C0304B5065D26DCC1DA9A02FC
CE4EBD19A0C58D9BE039179086B6DB20519A1F5C8194071DBB115703B996FF37
4BE0F5AA269B18CFC9C6CC1FC3D5A0D6B62C6AEA112236F38195B88DF12F9C9B
B45B1C6C637B161E1D5BCF6D8807A0437366CB21D90462F2BD3E827C96CB0483
D67B99916407E99E69FD12F46A50C973856268A5DC345259837D8827E00FF890
452D0B5D0D38932F3C65B9614B4F720901B96565DCCBD7236B7C66B650868D08
9BFA26EBB36DCAA5E3B120339E5EBE3B468E6B68FB3041E79229047367ADDC14
F7B376F26B2722024A41998813A04CB91A475C11C9054536473CA3F7365C0D30
9E65A0BA6D5977CFEE030BD626B9E2E5DFE76E51AFF9CADA6308F899C76E756A
03D4796E80532E986D273B71CEA8D81672739E0F1B329F8E999D0D9D04080769
CABC1D21260C2BB8E43D2A9D70BE3A2207D66EA09E5BCAFFB742F9F0A0C37677
222CFE9B7C2865192B3FAC5988E0385747334BD8288041E0DFBF4F2AD44804B4
6DADAF2BE98C5D02458059B3571CA91481B09580A9D6E827B184DD3756D6BF7E
7376F81ED59E46633384296A9A4BA7D4E3B8CBD3E566F1948B754731E0EBC41B
246774BD7BBBCA612D8CA7CC85A7C1ED093B75721DCED1D7E279871668830AE7
B782F5E9FDE4918360C9F666A6F61647F2EDB342A2FA3F6E9B0C8AC2699B9B3F
53847BB992B5707FDE5B6D721EA3EB55E3D8190D8BD998923A68917BE3FEDD32
EE1BDCA216275C1CCFBD0A07F35A40A6CC05A1357E6BF512D26DC470BAC927A3
B0078A42DD22E10000000049454E44AE426082
}
content: {VID Usage - REBOL Visual Interfaces
===Updates
--01-Apr-2008
* Fixed oddity with last item on stylesheets which was locking up
some versions of VIEW
---09-Jan-2004
* Fixed slider initialize.
* Focus section was not parsed out. --- fixed
* Fixed some text errors for the parsing of ===
---07-Jan-2004
* Revived vid-usage.r
* added more examples from the script library
* manage source as vid-usage.leo an outliner file
---12-August-2001
Added supply examples. See:
!List/Supply
!List With Supplied Data
!Supply List With Scroll
---13-August-2001
!Add Subpanel example ported by Anton
===Caveats
---Work In Progress
This is a work in progress. Whether the progress will continue depends
on the feedback.
---All Rights Reserved
The work is based on the documentation of REBOL View provided by
REBOL Technology and its mailing list.
All rights to this documentation remain the property of REBOL Technology.
---Plagiarized Examples
Things are shamelessly plagiarized. There are many experts on the
mailing list whose work is included here; most notably the examples
from the REBOL documentation.
---Approach
The approach that this document uses is to use REBOL/View/VID to
demonstrate its abilities and give a visual tutorial. To enable this
some changes have been made to the core %easyvid.r program from Carl
Sassenrath. A scoll bar was added to the right pane because it was
just too difficult to constrain the examples to the screen real estate
that was available.
---Order Order
The order of the items needs some work. The easyvid presentation
approach today does not allow for the drilling down and expansion
of an outline tree which is needed for a large amount of documentation.
The preferred approach is to put a multi-level tree for navigation
purposes and then allow navigation up and down the tree.
===To Do
* make this a true outline tree
* re-organize it better
* update as requested and as possible by suggestions on AltME's REBOL
world under group EasyVID
* correct numerous flaws
* better scrolling implementation using the updates that have been
used in other examples such as Didier's %delete-email.r
* allow clipping to clipboard like AltME does on a row for the source
examples
===Introduction to VID
With REBOL/View it's easy and quick to create your own user
interfaces. The purpose of this tutorial is to teach you the
basic concepts or REBOL/View interfaces in about 20 minutes.
VID is REBOL's Visual Interface Dialect. A dialect is an
extension of the REBOL language that makes it easier to express
or describe information, actions, or interfaces. VID is a
dialect that provides a powerful method of describing user
interfaces.
VID is simple to learn and provides a smooth learning curve from
basic user interfaces to sophisticated distributed computing
applications.
---Creating VID Interfaces
VID interfaces are written in plain text. You can use any text
editor to create and edit your VID script. Save your script
as a text file, and run it with REBOL/View.
!Note: Using a word processor like Word or Wordpad is not
recommended because files are not normally saved as text.
If you use a word processor, be sure to save the output
file as text, not as a document (.doc) file.
Recommendation: Look at TextPad from http://www.textpad.com
===Minimal VID Example
Here is a minimal VID example. It creates a window that
displays a short text message. Only one line of code
is required:
view layout [text "Hello REBOL World!"]
You can type this line at the REBOL console prompt, or save
it in a text file and run it with REBOL. If you save it
as a file, the script will also need a REBOL header. The
header tells REBOL that the file contains a script. Here
is an example of the script file with a header:
REBOL [Title: "Example VID Script"]
view layout [text "VID Example!"]
You can also add buttons and other gadgets to the script. The
example below displays a text, list of files, and a button:
view layout [
h2 "File List:"
text-list data read %.
button "Great!"
]
!Click on the examples above to see how they will appear on your
screen. Click on their close box to remove them. All of the
examples that follow can be viewed this way.
===Window Management
The code that displays the examples also shows how to manage the
number of windows that are open.
Look at the show-example block in the code near the end of this script.
The location of the example window is also managed here by keeping
track of the co-ordinates for the sample. After the sample window
is moved, the next use will open at the same location.
===Pre-loaded Images
For this script, the image which represented a Portable Network Graphic
definition of an image is held in the script and loaded.
For a small number of graphics, this can achieve some packaging and
performance benefits.
The image "polished" is used through the script to achieve the polished
steel
look that is one the outer frame.
backtile polished orange
button 200x50 "Polished Steel Look" polished
===Two Basic Functions
Two functions are used to create graphical user interfaces
in REBOL: VIEW and LAYOUT.
The LAYOUT function creates a set of graphical objects. These
objects are called faces. You describe faces with words and
values that are put into a block and passed to the LAYOUT function.
The VIEW function displays faces that were previously created by
LAYOUT. The example below shows how the result of
the LAYOUT function is passed to the VIEW function, and the
interface is displayed.
view layout [
text "Layout passes its result to View for display."
button "Ok"
]
Click on the above example to view it.
!Note: the block provided to a layout is not normal REBOL code,
it is a dialect of REBOL. Using a dialect makes it much easier
to express user interfaces.
===Styles
Styles describe faces. The examples above use the text and
button styles to specify a text line and a button. REBOL has
40 predefined face styles. You can also create your own custom
styles. Here are a few example styles:
view layout [
h1 "Style Examples"
box brick 240x2
vtext bold "There are 40 styles built into REBOL."
button "Great"
toggle "Press" "Down"
rotary "Click" "Several" "Times"
choice "Choose" "Multiple" "Items"
text-list 120x80 "this is" "a list" "of text"
across
check
radio radio
led
arrow
below
field "Text Entry"
]
The words like backdrop, banner, box, text, and button are styles.
===Facets
Facets let you modify a style. For instance, you can change the
color, size, text, font, image, edge, background, special
effects, and many other facets of a style.
Facets follow the style name. Here is an example that shows
how you modify the text style to be bold and navy blue:
view layout [txt bold navy "Facets are easy to use."]
The words bold and navy are not styles. They are facets that
modify a style. Facets can appear in any order so you don't
have to remember which goes first. For example, the line
above could be written as:
view layout [txt "Facets are easy to use." navy bold]
Many facets that can be specified. Here is an example that
creates bold red text centered in a black box.
view layout [txt 300 bold red black center "Red Text"]
You can create facets that produce special effects, such
as a gradient colored backdrop behind the text:
view layout [
vtext bold "Wild Thing" effect [gradient 200.0.0 0.0.200]
]
===Custom Styles
Custom styles are shortcuts that save time. When you define a
custom style, the facets you need go into the new style. This
reduces what you need to specify each time you use the style,
and it allows you to modify the look of your interface by
changing the style definitions.
For example, here is a layout that defines a style for red
buttons. The style word defines the new style, followed by
the old style name and its facets.
view layout [
style red-btn button red
text "Testing red button style:"
red-btn "Test"
red-btn "Red"
]
So, if you wanted to create a text style for big, bold,
underlined, yellow, typewriter text:
view layout [
style yell tt 220 bold underline yellow font-size 16
yell "Hello"
yell "This is big old text."
yell "Goodbye"
]
===Master Stylesheet
REBOL holds its styles in a master stylesheet. When you are
sure that you want to share them without having to add the
style sheet line then do it as follows:
First add the style to the master sheet:
button 200x50 "Define text-note as maroon bold text" [stylize/master
[
text-note: txt maroon bold
]]
button 200x50 "Define text-note as white italic text" [stylize/master
[
text-note: txt white italic
]]
Then invoke it:
view layout [
across
size 200x200
return text-note "This shows a master stylesheet style in use."
return text-note "This shows another usage of the same style."
return text-note "If you want to see the other style displayed, click
the Add Style section again and then use the other button"
]
===Note About Examples
!From this point forward, all examples will assume that
the view and layout functions are provided. Only the layout
block contents will be shown. To use these examples in your
scripts, you will need to put them in a layout block, as was
shown earlier.
For example, code that is written as:
view layout [button red "Test it"]
will now appear as:
button red "Test it"
===Face Sizes
The size of a face depends on its style. Most styles, such as
buttons, toggles, boxes, checks, text-lists, and fields, have a
convenient default size. Here are some examples.
button "Button"
toggle "Toggle"
box blue
field
text-list
If no size is given, text will automatically compute its size,
and images will use whatever their source size is:
text "Short text line"
text "This is a much longer line of text than that above."
image %palms.jpg
You can change the size of any face by providing a size facet.
The size can be an integer or a pair. An integer specifies
the width of the face. A pair specifies both width and height.
Images will be stretched to fit the size.
button 200 "Big Button"
button 200x100 "Huge Button"
image %palms.jpg 50x50
image %palms.jpg 150x50
===Color Facets
Most styles have a default color. For example the body of
buttons will default to a teal color. To modify the color of
a face, provide a color facet:
button blue "Blue Button"
h2 red "Red Heading"
image %palms.jpg orange
Colors can also be specifed as tuples. Each tuple contains three
numbers: the red, green, and blue components of the color. Each
component can range from 0 to 255. For example:
button 200.0.200 "Red + Blue = Magenta" 200
image %palms.jpg 0.200.200 "Green + Blue"
Some face styles also allow more than one color. The effect of
the color depends on the style. For text styles the first color
will be used for the text and the second color for the background
of the text:
txt "Yellow on red background" yellow red
banner "White on Navy Blue" white navy
For other styles, the body of the face is the first color, and
the second color will be used as its alternate.
button "Multicolor" olive red
toggle "Multicolor" blue orange
===Layout Commands
To drop user interface elements on the canvas according to VIDs
directional layout controls
---Across
You are placing elements in a row orientation
across
return button "A" button "B" button "C"
return button "D" button "E" button "F"
---Below
You are placing elements in a column orientation
below
return button "A" button "B" button "C"
return button "D" button "E" button "F"
---Mix
You can mix the directional controls
across
return button "A" button "B"
below button "C"
across button "D" button "E" button "F"
---Padding
The pad keyword creates extra padding between styles. It uses a pair
or integer value. When it is an integer, spacing is created either
horizontally (across) or vertically (below). When it is a pair, the
spacing will be created both horizontal and vertically. The following
example illustrates both uses. First, the buttons "one" and "two"
are padded with an integer representing 40 pixels in one direction.
Then the buttons "three" and "four" are padded with a pair representing
40x40 pixels.
across
button "one" pad 40 button "two" return
button "three" pad 40x40 button "four"
Padding can be negative.
backtile polished orange
pad 200x200 button "A"
pad -100x-100 button "B"
---Guide
A guide is a virtual alignment control
title "Buttons Without A Guide"
button "one" button "two" return
button "three" button "four" return
button" five" button "six"
With an implicit guide location
title "Buttons With An Implicit Guide Location"
guide
button "one" button "two" return
button "three" button "four" return
button" five" button "six"
With an explicit guide location
across title "Buttons With An Explicit Guide Location"
guide 55x100
button "one" button "two" return
button "three" button "four" return
button" five" button "six"
===Tabstops
Tabs can be used for alignment.
---Across
tabs 200 ; sets tabs every 200 pixels
across button 20 "A" tab button 20 "B" tab button 20 "C"
tabs 100 ; sets tabs every 100 pixels
return button 20 "D" tab button 20 "E" tab button 20 "F"
---Below
tabs 200 ; sets tabs every 200 pixels
below button 20 "A" tab button 20 "B" tab button 20 "C"
tabs 100 ; sets tabs every 100 pixels
return button 20 "D" tab button 20 "E" tab button 20 "F"
---Explicit Settings
Tabstops can be set at explicit values
tabs [100 124 166 212 300]
across tab button 20 "A" tab button 20 "B" tab button 20 "C" tab
button 20 "D"
===Color Facets
Most styles have a default color. For example the body of
buttons will default to a teal color. To modify the color of
a face, provide a color facet:
button 200 blue "Blue Button"
h2 red "Red Heading"
image polished orange
Colors can also be specifed as tuples. Each tuple contains three
numbers: the red, green, and blue components of the color. Each
component can range from 0 to 255. For example:
button 200.0.200 "Red + Blue = Magenta" 200
image polished 0.200.200 "Green + Blue"
Some face styles also allow more than one color. The effect of the
color depends on the style. For text styles the first color will
be used for the text and the second color for the background of the
text:
txt "Yellow on red background" yellow red
title "White on Navy Blue" white navy
For other styles, the body of the face is the first color, and the
second color will be used as its alternate.
button 200 "Multicolor" olive red
toggle 200 "Multicolor" blue orange
From the mailing list, there was a problem reported in changing button
color:
view layout [
b: button "New color" [
b/color: random 255.255.255
show b
]
]
And the answer was that the gradient of the color was preventing
this change from working:
style color-changing-button button 0.0.0 ; new style overwrites
gradient effect
b: color-changing-button "New color" [
b/color: random 255.255.255
show b
]
===Text Facets
Most faces will accept text to be displayed. Even graphical faces
can display text. For example, the box and image faces will display
text if it is provided:
box blue "Box Face"
image polished "Image Face"
Most button faces will accept more than one text string. The strings
will be shown as alternates as the face is selected.
button 200 "Up" "Down"
toggle 200 "Off" "On"
rotary 200 "Red" "Green" "Blue" "Yellow"
choice 200 "Monday" "Tuesday" "Wednesday" "Thursday" "Friday"
text-list 200 "Monday" "Tuesday" "Wednesday" "Thursday" "Friday"
When other datatypes need to be displayed as text, use the form function
to convert them first:
button 250 form now
field form first read %.
===Normal Text Style
Normal text is light on dark and can include a number of facets to
set the font, style, color, shadow, spacing, tabbing, and other attributes.
text "Normal"
text "Bold" bold
text "Italic" italic
text "Underline" underline
text "Bold italic underline" bold italic underline
text "Big" font-size 32
text "Serif style text" font-name font-serif
text "Spaced text" font [space: 5x0]
Text also includes these predefined styles:
title "Title" 200
vh1 "vh1"
vh2 "vh2"
vh3 "vh3"
vh4 "vh4"
label "Label"
===Document Text Style
Document text is dark on light and can also include a number of facets
to set the font, style, color, shadow, spacing, tabbing, and other
attributes.
txt "Normal"
txt "Bold" bold
txt "Italic" italic
txt "Underline" underline
txt "Bold italic underline" bold italic underline
txt "Big" font-size 32
txt "Serif style text" font-name font-serif
txt "Spaced text" font [space: 5x0]
Document text also includes these predefined styles:
title "Centered title" 200
h1 "Heading 1"
h2 "Heading 2"
h3 "Heading 3"
h4 "Heading 4"
tt "Typewriter text"
===Text Entry Fields
Text input fields accept text until the enter or tab key is pressed.
A text input field can be created with:
field
To make the field larger or smaller, provide a width:
field 30
field 300
Fields will scroll when necessary.
Larger amounts of text can be entered in an area. Areas also accept
an enter key and will break lines.
area
You can also specify the area size:
area 160x200
To force the text in an area to wrap rather than scroll horizontally,
provide the wrap option:
area wrap
===Text Setting
To set the value of a text field under program control, use /text:
e.g.
across backtile polished
return t1: txt 200 "This is some original text"
return f1: field 200 "Some field text"
return a1: area {Some original area text.} wrap 200x80
return button 200 "Change Text" [
t1/text: "Some different text"
f1/text: "Some new field text"
a1/text: {Some wrapping text in the^/ area field to^/ show that this^/
is supported}
show [t1 f1 a1]
]
===Text Lists
Text lists are easy to create. Here is an example.
text-list "Eureka" "Ukiah" "Mendocino"
You can also provide it as a block:
text-list data ["Eureka" "Ukiah" "Mendocino"]
Almost any type of block can be provided. Here is a list of all the
files in your current directory:
text-list data read %.
Here is a list of all the words REBOL has scanned:
text-list data first system/words
===Scrolling Text List
A style to allow maintenance of lists from Brett Handley on the REBOL
list:
style updatable-text-list text-list
with [
update-slider: does [
sld/redrag lc / max 1 length? head lines
]
]
tl: updatable-text-list 300x100 data copy system/locale/months
button 300x20 "Delete first entry on the list" [
remove tl/data tl/update-slider show tl
]
button 300x20 "Append the 'now' timestamp to list" [
append tl/data mold now tl/update-slider show tl
]
===Text List Picked Values
list-of-letters: text-list "a" "b" "c" "d" "e"
button 200 "Pick Item 3" [
clear list-of-letters/picked
append list-of-letters/picked pick list-of-letters/data 3
show list-of-letters
]
===Images
By default an image will be scaled to fit within a face.
image 60x60 polished
image polished red
Images can be framed in a number of ways:
image 100x100 polished frame blue 5x5
image 100x100 polished bevel
image 100x100 polished ibevel 6x6
Most other faces can accept an image as well as text:
box 100x100 polished
button "Button" polished purple
toggle "Toggle" polished blue red
field bold "This is a field." polished effect [emboss tile]
field bold "This is another field." polished effect [brighten 100]
The image can be provided as a filename, URL, or image data.
===Backdrops
A backdrop can be a color, an effect, an image, or a combination
of the three. For example a backdrop color would be written as:
backdrop navy
title "Color Backdrop" gold
To create a backdrop effect provide it on the line:
backdrop effect [gradient 1x1 0.0.100 100.0.0]
title "Gradient Backdrop" gold
A backdrop image can be a file, URL, or image data:
backdrop polished
title "Image Backdrop" red
The backdrop image can be colorized:
size 400x500
backdrop polished blue
title "Blue Image Backdrop"
The image can include an effect:
backdrop polished effect [fit gradcol 1x1 100.0.0 0.0.250]
title "Gradient Image Backdrop"
===Backtile
To make a backdrop use a tile effect there are two options:
backdrop polished effect [tile]
banner "This shows a backdrop with a tile effect"
or
backtile polished
banner "This demonstrates backtile"
Note the difference between:
size 400x500
backdrop polished
banner "Here one image is stretched to cover the canvas"
and
size 400x500
backtile polished
banner "Here one image is repeated to cover the canvas"
===Effect Facets
A range of effects are supported for faces. All of these effects
are performed directly on the face when it is rendered. Here are
examples of a few possible effects in top to bottom then left to
right order:
style polished-steel image 80x60 polished
polished-steel effect [flip 1x1]
polished-steel effect [rotate 90]
polished-steel effect [reflect 1x1]
polished-steel effect [crop 0x50 120x60 fit]
polished-steel effect [grayscale]
polished-steel effect [invert]
polished-steel effect [difference 200.0.0]
polished-steel effect [tint 80]
return
polished-steel effect [contrast 50]
polished-steel effect [brighten 50]
polished-steel effect [sharpen]
polished-steel effect [blur]
polished-steel effect [colorize 204.0.0]
polished-steel effect [gradcol 1x1 150.0.0 0.0.150]
polished-steel effect [gradmul 0x1 0.100.0]
polished-steel effect [grayscale emboss]
Effects can be used in combination to create other interesting results.
However, keep in mind that the computations are performed in real
time. If complex combinations are required, a temporary image should
be created with the to-image function.
===Actions
An action can be associated with almost any face. To do so, follow
the face style with a block:
button "Test" [alert "test"]
The block is used as the body of a function that is passed the face
and the current value (if the face has one). For example:
toggle "Toggle" [alert form value]
rotary "A" "B" "C" [alert form value]
text "Click Here" [alert face/text]
If a second block is provide, it is used for the alternate
actions (right key):
button "Click Here" [view/new layout [txt "action"]] [view/new layout
[txt "alt-action"]]
Use variables to modify the contents or state of other faces. For
example, the slider will update the progress bar:
slider 200x16 [p1/data: value show p1]
p1: progress
!More action on actions needed...
===Show
After the state is changed for a user interface element, it must
be re-drawn to be reflected on the user interface canvas.
Accomplish this with the show message.
backtile polished
across
toggle "Toggle State"
[ cybernetics?/data: not cybernetics?/data
show cybernetics?]
return label "Are you interested in cybernetics?" cybernetics?:
check
One show command can be used for multiple user interface elements
backtile polished orange
across
b1: check label "Red" return
b2: check label "Green" return
button 200 "Change State But No Refresh" [b1/data: not b1/data b2/data:
not b2/data] return
button "Show" [show [b1 b2]]
===Hide
A user interface element can also be hidden.
backtile polished orange
across
c1: check
hide-button: button "Hide" [hide c1] return
show-button: button "Show" [show [c1 d2]]
The show-button action tries to show a user interface element 'd2'
that does not exist.
REBOL/View ignores these.
===Invisible Faces
To make a button invisible when the view is opened, you can define
an invisible button style
This approach sets the show? value to false when the user interface
element is initialized.
across
style invisible-button button with [append init [show?: false]]
late-shower: invisible-button "I'm Here" return
return button 200 "Show Invisible Button" [show late-shower]
This works for the other visible user interface element.
===Focus
A user interface element can programmatically be given the focus.
across backtile polished
button 200 "Set focus to Phone Field" [focus f2]
return label "Name: " f1: field 100
return label "Phone: " f2: field 100
return button 200 "Remove focus from Phone Field" [unfocus f2]
return button 200 "Hide the Phone Field" [hide f2] return
---Focus Defect
!Note that the tab function shows a hidden field. I have assumed
that this is a defect. If a field is hidden, the tab button should
not make it visible. This has been previously sent to feedback.
===Radio Buttons
A radio button is used to make a choice between mutually exclusive
values. Your preferred programming language is REBOL or C++ or PL/1
or APL but it is only one of those.
across backtile polished
radio of 'programming-language pad 0x-4 label "REBOL" return
radio of 'programming-language pad 0x-4 label "C++" return
radio of 'programming-language pad 0x-4 label "PL/1" return
radio of 'programming-language pad 0x-4 label "APL" return
To mix two groups of radio buttons on one screen, associate them
with their groups using the "of 'word". In the above, the grouping
is 'programming-language.
across backtile polished
radio of 'programming-language pad 0x-4 label "Language: REBOL" return
radio of 'programming-language pad 0x-4 label "Language: C++" return
radio of 'editor pad 0x-4 label "Editor: TextPad" return
radio of 'editor pad 0x-4 label "Editor: Notepad" return
The padding in the above is needed to keep the label aligned with
the radio button.
across backtile polished orange
radio of 'programming-language pad 0x-4 label "REBOL" return
radio of 'programming-language label "APL" return
===Radio Button Settings
A radio button is not very useful unless you can find out what its
setting is and change that setting under program control.
across backtile polished orange
rebol-radio: radio of 'programming-language [programming-language:
'rebol] pad 0x-4 label "REBOL" return
apl-radio: radio of 'programming-language [programming-language:
'apl] label "APL" return
button 200 "Toggle radio button" [
apl-radio/data: not rebol-radio/data: not rebol-radio/data
show [rebol-radio apl-radio]
]
===Check Box
---Purpose
A check box is used to allow user interface choices where the choices
are not mutually exclusive.
across backtile polished orange
c1: check label "Likes animals" return
c2: check label "Like Monkees" return
c3: check label "Like The Animals"
---State
A check box is not much good if you can't get and set its state (on
or off).
across backtile polished orange
c1: check label "Likes animals" return
c2: check label "Like Monkees" return
button "Set State" [
c1/data: true
show c1
c2/data: false
show c2
]
===Sensor
---Purpose
A sensor is an invisible user interface element. Using a sensor only
makes sense in a few instances.
If you want a keycode action where there is no visible user interface
element to link the action to then a sensor can be used.
This sensor code adds an Escape or Back or Enter action that will
close the window.
sensor 1x1 keycode [#"^M" #" " #"^(back)" #"^(ESC)"] [unview]
Or if you want to make portions of an image 'hot' instead of putting
buttons on top of the image, then a sensor will achieve this.
across backtile polished orange
txt "Click on the upper left section of the gray image to invoke
the sensor action"
return animage: image 100x100 polished ; here the image is just
the polished area
at animage/offset sensor 50x50 [alert "You pushed over the sensor"]
===Displaying Script Values
If the script has a standard format headings, including custom ones,
these can be used in the application by picking them from the system/script/header.
backtile polished
across banner "About"
return text font-size 16 rejoin ["Title: " form system/script/header/title]
return text font-size 16 rejoin ["Originator: " form system/script/header/author]
return text font-size 16 rejoin ["Modifier: " form system/script/header/modifier]
return text font-size 16 rejoin ["Version: " form system/script/header/version]
return text font-size 16 rejoin ["Updated: " form system/script/header/date]
return button "OK" [unview]
===Toggle
A toggle button represents boolean state - either on or off. The
button stays down until toggled again.
Colors and text can be paired for "on" and "off" state.
toggle "Up" "Down" red blue
To set the state via program control, use:
across backtile polished
return t1: toggle "Up" "Down" red blue
return button polished 204.0.0 100 "Toggle State" [
t1/state: not t1/state
show t1
]
===Rotary Buttons
Rotary buttons are a different sort of user interface device. They
can cause some challenges because the state is what's showing so
you have to blindly "toggle" to get to a state that you want. But
for quick and easy uses where the user is familiar with the options,
they can be handy. If you plan to use them for a long list of items
such as shown below, they might give you some usability concerns.
---Example
across backtile polished
rotary data ["First" "Second" "Third"]
---Setting State
across backtile polished
return r1: rotary data (my-options: ["First" "Second" "Third"])
return button 200 "Change Rotary State" [
r1/data: next r1/data
if tail? r1/data [r1/data: head r1/data]
show r1
]
---Example - Usability For Unfamiliar List Contents
The rotary button demonstrated here contains some information unfamiliar
to most (Saturn's satellites). Use it to to set the state so that
"Calypso" is set. Doable but without knowing the order each re-paint
has to be checked to ensure that it is not "Calypso" before clicking
again. If you do click past the choice that you want, there is no
back function so you have to cycle through again.
return rotary data [
"Pan" "Atlas" "Prometheus" "Pandora" "Epimetheus" "Janus" "Mimas"
"Enceladus" "Tethys" "Telesto" "Calypso" "Dione" "Helene" "Rhea"
"Titan" "Hyperion" "Iapetus" "Phoebe"
]
===Arrows
REBOL/View supports arrows as simple user interface elements. Actions
can be associated with them.
---Arrowheads And Actions
By default, the arrow is 20x20
across size 200x100
backtile polished
at 50x50 arrow left
[alert "You pressed the left arrow"]
[alert "You pushed the alternate button on the left arrow"]
at 70x30 arrow up
at 90x50 arrow right [alert "You pressed the right arrow"]
at 70x70 arrow down
---Very Sharp Arrows
And with a little work the arrows and boxes can be merged to look
sharper. Here is a "sharp at both ends" arrow from the block diagram
script by Carl:
origin 0
backcolor white
at 0x0 box 40x40 white effect [arrow rotate 270]
at 110x0 box 40x40 white effect [arrow rotate 90]
at 24x10 box black 100x20
---Arrow Blend
So that shows you how to make an arrow blend into your background
size 100x100
across backdrop gray
at 50x50 box 40x40 gray effect [arrow rotate 90]
at 40x67 box 25x5 black
===LED
LEDs would be used to display state (on or off).
Clicking the LED toggles its state and changes its color.
LEDs do not support alternate mouse button actions.
across banner "Light Emitting Diode"
return
l1: led 10x10 [alert "LED left mouse action"] label "Alert status"
l2: led 10x10 [alert "LED left mouse action"] label "Network status"
return button "Change state" [
l1/data: not l1/data
l2/data: not l2/data
show [l1 l2]
]
===Box
---Boxing
Draw boxes of any heigth and width with the box style
box "Large Box" 200x400 polished orange
---Boxes As Lines
If you make the box narrow enough or short enough it is a line (or
a dot).
across size 300x300 backtile polished
at 50x0 box 3x100 gold
at 0x50 b1: box 100x3 gold
at 10x10 box 5x5 red
---Boxes Can Grow
across size 300x300 backtile polished
at 150x0 b1: box 100x3 gold
return pad 0x100 button "Grow Down" [
for i 3 300 1 [
b1/size/y: 1 + b1/size/y
wait 00:00:00.01
show b1
]
]
return pad 0x100 button "Back Up" [
for i 300 3 -1 [
b1/size/y: b1/size/y - 1
wait 00:00:00.01
show b1
]
]
You might even find a use for it.
---Grid Effect
Not sure of the use for this yet but here is what you can do:
return box "Grid Lock" with [effect: [grid 20x20 8x8 4x3]] white
300x200
return box "Grid Lock" with [effect: [grid 20x20 5x5 3x3]] white
- 80 300x200
===Frame
Earlier versions of REBOL VID supported frames in layouts such as
view layout [frame "This is the Bay" %bay.jpg]
These are no longer valid.
But frames can be put around some user interface devices:
image 100x100 polished frame red
===List
A list is an iterated sub layout and takes a layout block that uses
the Visual Interface Dialect. The styles in the layout will be repeated
until there is no more room to fit them within the list dimensions.
---Why
A face can be iterated to create a number of virtual faces. For instance,
when displaying a list of ten buttons, each of the buttons does not
need to be created as a separate object. If the buttons only differ
by a few facets (such as position, text, and action taken on selection),
a model face can be created and iterated for its other position.
This is useful when creating scrolling lists of files and other data
sets that share the same appearance.
---Supply
Supply provides the data to the list for an iterated face.
do [cnt: 0
list-collection: [aqua sky water]
]
backtile polished orange
across
list-displayed: list 100x72 [
origin 0 space 0x0 across
color-field: txt bold 80x24
] supply [
if none? one-color: pick list-collection count [exit]
face/text: do pick [one-color] index
]
return txt gold 180 "OK ... but not too useful"
---Supply Columns
Maybe adding some more columns would be better.
Here I'll add a column of buttons that display the color name
and a column of text strings in italic.
do [
cnt: 0
list-collection: [aqua sky water gold silver coffee]
]
backtile polished orange
across
list-displayed: list 300x200 [
origin 0 space 0x0 across
color-field: txt bold 80x24
color-button: button 80x24
pad 5x1
txt 100 italic
] supply [
if none? one-color: pick list-collection count [exit]
face/text: do pick [
[one-color]
[to-string one-color]
[rejoin [" " to-string one-color]]
] index
]
return txt gold 300 {A bit more interesting but the last row repeats
to fill the list size. Some of the other VID components will automatically
stretch to fit the size needed (such as this txt field) but the list
does not behave that way. You have to make the list size fit its
data or make it smaller and add a vertical scroll capability. That
is shown a little later on.}
===List With Supplied Data
This example is to show adding action to the list
and adds a horizontal line between the rows.
do [
cnt: 0
list-collection: [aqua sky water gold silver coffee]
]
backtile polished orange
across
list-displayed: list water edge [size: 6x6 color: silver] 350x96
[
origin 0 space 0x0 across
color-field: txt 60 [alert rejoin ["You pressed the " face/text "
text field"]]
pad 45x0
color-button: button 80 [alert rejoin ["You pressed the " face/text
" button"]]
pad 5x0
txt 120 italic
return box 350x1 white ; this causes a horizontal line to appear
between each row
] supply [
if none? one-color: pick list-collection count [exit]
face/text: do pick [
[one-color]
[to-string one-color]
[rejoin [" " to-string one-color]]
] index
]
===Supply List With Scroll
This example shows a supplied list with a scroll capability.
More colors are added to demonstrate scrolling.
Note that this is a verbose list of code where I added comments
for my understanding of how the scroll was linked to the list.
The same effect can be accomplished with fewer lines of code.
do [ ; first this do block creates the data definitions needed.
slider-position-clicked: 0
count: 0
x: 450
y: 300
row-y: 16 ; the row height includes the data plus any separator
lines
list-size: to-pair reduce [x y] ; this is the size of the display
list
separator-size: to-pair reduce [x 1]
slider-size: to-pair reduce [24 y ]
list-collection: [
aqua bar-color base-color beige black
blue brick brown
button-color coal coffee crimson cyan
forest gold gray
green ivory khaki leaf linen
magenta main-color maroon
mint navy oldrab olive orange
over-color papaya pewter
pink purple rebolor red sienna
silver sky snow
tan teal violet water wheat
white yellow
]
supply-style: stylize [
button-fixed: button left coal to-pair reduce [80 row-y] ;
these keep the row elements the same height
text-fixed: txt to-pair reduce [160 row-y]
]
data-size: length? list-collection
]
backtile polished orange ; this section layouts
out the list
across
list-position: at ; the position
is captured here in order to later put the slider beside it
list-displayed: list linen
edge [size: 6x6 color: tan] list-size [
origin 0 space 0x0 across
styles supply-style
text-fixed [alert rejoin ["You pressed the " face/text " text field"]]
button-fixed [alert rejoin ["You pressed the " face/text " button"]]
pad 5x0
text-fixed 80 italic [alert rejoin ["You pressed the italic " face/text
" text field"]]
return box separator-size gray ; this causes a horizontal line
to appear between each row
] supply [
count: count + slider-position-clicked
if none? one-color: pick list-collection count [exit]
face/text:
either count > (1 + data-size)
[""]
[
do pick [
[one-color]
; this is supplied to the first txt field (text-fixed)
[to-string one-color] ;
this is supplied to the button (button-fixed)
[rejoin [" " to-string one-color " "]] ; this value is supplied
to the last text-fixed field
] index
]
]
; now add a slider to the side of the list
at list-position + (list-size * 1x0)
; this finds the top right border of the list widget
vertical-slider: slider slider-size to-integer y / row-y
[
slider-position-clicked: vertical-slider/data ; the slider has
to be bound to the size of the list
* ((1 + data-size) - ((y / (1 + row-y)))) ; including the row
height
if slider-position-clicked <> count [
count: slider-position-clicked
show list-displayed
]
]
===Slider
A slider is interactive user interface element. The data of a slider
varies from 0 to 1.
backtile polished orange across
slider-1: slider 200x40
return button 200 "Move first slider to 50%" [
slider-1/data: .5
show slider-1
]
return txt 200 "The second slider in this example is initialized
to the 80% mark."
return slider 200x40 with [append init [data: .8]]
===Progress Indicator
The progress-1 face in this example is a progress indicator. Because
it is only displaying information, it is non-interactive i.e. you
can not change its value by dragging its edges. The alternate button
is not supported on a progress indicator.
backtile polished orange across
slider 200x40 [
progress-1/data: value
field-1/text: join (to-integer (100 * value)) " %"
show [progress-1 field-1]
]
return progress-1: progress
return field-1: field
===Panels
Panels are used to create sub-panes that can be more easily managed
by grouping
the user interface devices on a panel. The first example below shows
how to use panels for layout alignment. By creating a panel definition,
all of the components defined within it are aligned relative to its
origin.
across backtile polished brick
tabs 50
return panel-1: panel 250x120 [
backtile polished
across
return button water 200 "Button A"
return button aqua 200 "Button B"
return button sky 200 "Button C"
]
at panel-1/offset + panel-1/size panel 60x90 [ ; start at the bottom
right corner of panel-1
backtile polished
across
return button tan 20 "1"
return button coffee 20 "2"
]
---Multiple SubPanels example
This example from the REBOL html documentation shows how to easily
hide and show sections of a user interface by displaying them on
the face area of a box.
do [ ; define two panels
panel1: layout [
origin 8x8
h2 "Panel 1"
field "Field 1"
field "Field 2"
button "The Answer" [alert "I know nothing."]
]
panel2: layout [
origin 8x8
h2 "Panel 2"
across
txt "X:"
slider 150x16
return
txt "Y:"
slider 150x16
return
check [panel2/color: maroon show panel2]
txt "Don't click this"
return
check [panel2/color: silver show panel2]
txt "Click this"
return
]
panel1/offset: 0x0
panel2/offset: 0x0
]
vh2 "Subpanel Examples" ; now demonstrate panel use
guide
pad 20
button "Panel 1" [panels/pane: panel1 show panels]
button "Panel 2" [panels/pane: panel2 show panels]
button "Quit" [unview]
return
box 2x140 maroon
return
panels: box 220x140
do [panels/pane: panel1]
===Simple Default Style Override
The style's default look can be overriden easily with one line of
code.
For example, to make the default button size 200x200 with a water
color, use
style button button 200x200 water
button "Big Blue Button" [unview]
To make the toggle some different default colors:
style toggle toggle crimson sky
toggle "Up" "Down"
Note that these stay in effect until they are overridden so if you
use the default values, exercise some care unless you meant to do
that.
===Image Maker
An option used by Carl in some of his programs is to let View create
specific icons so that you have portability and more control of look
of the image then if you referenced an external file such as gif
that was a bullet display. Here's how to do that:
do [
make-image: func [xy wh eff] [
eff: layout [
size 20x20 at xy
box wh effect eff
]
eff/color: rebolor
to-image eff
]
dot: make-image 6x5 9x9 [gradient 1x1 255.0.0 0.0.0 oval key 0.0.0]
dot-big: make-image 8x7 12x12 [gradient 1x1 255.0.0 0.0.0 oval key
0.0.0]
arr: make-image 3x3 14x14 [arrow 0.0.127 rotate 90]
ard: make-image 3x3 14x14 [arrow 0.0.127 rotate 180]
] ; end of "do" - it is needed here because easyvid approach is
expecting vid dialect commands
banner "Presentation Points"
size 400x300 across
style label label gold ; make a label's text be a different color
than the default
return image dot label "This is bullet point number 1"
return image dot label "This is bullet point number 2"
return image arr label "This is arrow point number 1"
return image ard label "This is an arrow making a different point"
return image dot-big pad 0x4 area 300x80 wrap "And because these
arrows and dots are images, action can be added to them to make them
'hot' with mouse actions including 'over'."
===Needs Some Work
!More to come. These still need to be covered in this
tutorial:
text-list data [
icon
]
===Digital Clock
origin 0
banner "00:00:00" rate 1 effect [gradient 0x1 0.0.150 0.0.50]
feel [engage: func [face act evt] [face/text: now/time show face]]
===REBOL Logo
image %rebo-logo.gif [unview]
===Paint Drops
REBOL one liner by Vincent Ecuyer
b: box rate 9 effect[draw[pen(random snow)circle(random 99x99)2]blur]box
1x1 rate 9 effect[draw[(b/image: to-image b)]]
===eMailer
One line emailer by Doc Kimbel
Assumes you have set up your email in set-user
e: field "Email" s: field "Subject" m: area "Body" btn "Send"[send/subject
to-email e/text m/text s/text alert "ok"]
===Hello World
text "Hello World!" button "Close" [unview]
===Three Buttons
button "Yes" button "Maybe" button "No"
===View Web Text
text 800x600 read http://www.rebol.com
===View Image
image %palms.jpg
===View Image and File Name
Here a do block is used to initialize the file variable within the
layout code.
do [file: %palms.jpg]
image file text form file
===View Image behind File Name
Here a do block is used to initialize the file variable within the
layout code.
do [file: %palms.jpg]
image file form file
===Buttons From Images
backdrop 40.70.140
stat: text bold "Click a Button" 100x20 240.140.40 center
button "Bay Test" %bay.jpg 100x100 [
stat/text: "Upper"
show stat
]
button "Blue Test" %bay.jpg 100x100 10.30.180 [
stat/text: "Lower"
show stat
]
===View List
list blue 320x200 [across text white 200 text white 100] data [
["John" 100]
["Joe" 200]
["Martin" 300]
]
===Movie Credits
backdrop %bay.jpg effect [fit]
text center bold 240x30 "REBOL, The Movie" yellow font [size: 16]
credits: text {
Edit This File
To Add Your Own Credits
It is very simple to do.
Only takes a minute.
Only REBOL Makes It Possible...
} white bold center 240x180 rate 30 para [origin: 0x+100]
feel [engage: func [f a e] [
if a = 'time [f/para/origin: f/para/origin - 0x1 show f]
]
]
===Fire Demo
box 150x150 with [
edge: none
img: image: make image! 150x150
rate: 20
text: "FIREBOLEK"
font: make font [size: 24 color: 255.125.0]
basic: [draw [image make pair! reduce [(random 3) - 2 -1] img]]
effects: reduce [
append copy basic [blur luma -10]
append copy basic [sharpen luma -10 blur]
append copy basic [contrast 10 blur luma -5]
]
effect: first effects
feel: make feel [
engage: func [f a e][
switch a [
down [f/effects: next f/effects if tail? f/effects [f/effects: head
f/effects] f/effect: first f/effects show f]
time [show f repeat i f/size/x - 4 [poke f/image (f/size/x * f/size/y)
- i - 2 (random 255.0.0 + random 0.127.0) * 3] f/img: to-image f]
]
]
]
]
text 150 {classical fire demo for REBOL^/
press on fire to see other effects.^/
Written by ReBolek, 2001 in 15 mins.^/
We need new category on Assembly:^/
less-than-kb-demo ;-)} with [font: make font [size: 9]]
===Bezier
Oldes Bezier Line Demo
See script library for %bezier-curve.r
Uses functions and data initialized at script startup
The end points are draggable to change the curve!!!!
Here a do block is used to allow executable lines for initialization
purposes.
do [
draw-beziere-curve: has [result pp x0 x1 x2 x3 y0 y1 y2 y3 cx bx
ax cy by ay t tx ty s] [
result: make block! 120
pp: p0/size/x / 2
x0: p0/offset/x + pp
y0: p0/offset/y + pp
x1: p1/offset/x + pp
y1: p1/offset/y + pp
x2: p2/offset/x + pp
y2: p2/offset/y + pp
x3: p3/offset/x + pp
y3: p3/offset/y + pp
insert result compose [
pen 155.0.0
line (p0/offset + pp) (p1/offset + pp)
line (p2/offset + pp) (p3/offset + pp)
pen 255.255.255 line (p0/offset + pp)
]
cx: 3 * (x1 - x0)
bx: 3 * (x2 - x1) - cx
ax: x3 - x0 - cx - bx
cy: 3 * (y1 - y0)
by: 3 * (y2 - y1) - cy
ay: y3 - y0 - cy - by
t: s: 0.01 ;this value sets quality of the curve
while [t <= 1][
tx: to integer! (
(ax * (t * t * t)) + (bx * (t * t)) + (cx * t) + .5
) + x0
ty: to integer! (
(ay * (t * t * t)) + (by * (t * t)) + (cy * t) + .5
) + y0
t: t + s
insert tail result to pair! reduce [tx ty]
]
return result
]
click?: false
mouse-pos: 0x0
]
origin 0
bkg: box black 400x400 with [effect: reduce ['draw make block! 120]]
style point box 10x10 with [
effect: [draw [pen 0.255.0 fill-pen 0.200.0 circle 4x4 4]]
changes: [offset]
feel: make feel [
engage: func [f a e][
if a = 'down [click?: on mouse-pos: e/offset]
if a = 'up [click?: off]
if find [over away] a [
if click? [
f/offset: f/offset + e/offset - mouse-pos
bkg/effect/2: draw-beziere-curve
show [bkg f]
]
]
]
]
]
at 300x200 p0: point
at 200x100 p1: point
at 200x300 p2: point
at 100x200 p3: point
do [bkg/effect/2: draw-beziere-curve]
===Buttons Galore
Buttons galore from the library script %buttons.r
Here a do block is used to execute the initialization needed within
the layout block.
do [
group: ["rotary" "test" "button"]
]
origin 20x10
backdrop effect [gradient 0x1 100.20.0]
vh1 "52 Button Click-up - Each with a different click effect..."
vtext bold "Here is a small sampling of the thousands of button effects
you can create. (This is 78 lines of code.)"
at 20x80 guide
button "simple"
button form now/date
button "colored" 100.0.0
button "text colored" font [colors: [255.80.80 80.200.80]]
button with [texts: ["up text" "down text"]]
button "bi-colored" colors [0.150.100 150.20.20]
button with [texts: ["up color" "down color"] colors: [0.150.100
150.20.20]]
button "image" pic
button "color image" pic 200.100.50
button "flip color" pic with [effects: [[fit colorize 50.50.200][fit
colorize 200.50.50]]]
button "blink" with [rate: 2 colors: [160.40.40 40.160.40]]
return
button "multiply" pic with [effects: [[fit][fit multiply 128.80.60]]]
button "brighten" pic with [effects: [[fit][fit luma 80]]]
button "contrast" pic with [effects: [[fit][fit contrast 80]]]
button "horiz flip" pic with [effects: [[fit][fit flip 1x0]]]
button "vert reflect" pic with [effects: [[fit][fit reflect 0x1]]]
button "invert" pic with [effects: [[fit][fit invert]]]
button "vert grad" with [effects: [[gradient 0x1 0.0.0 0.200.0] [gradient
0x1 0.200.0 0.0.0]]]
button "horiz grad" with [effects: [[gradient 1x0 200.0.0 200.200.200][gradient
1x0 200.200.200 200.0.0]]]
button "both grad" with [effects: [[gradient 1x0 140.0.0 40.40.200]
[gradient 0x1 40.40.200 140.0.0]]]
button "blink grad" with [rate: 4 effects: [[gradient 1x0 0.0.0 0.0.200]
[gradient 1x0 0.0.200 0.0.0]]]
button "blink flip" pic with [rate: 8 effects: [[fit][fit flip 0x1]]]
return
button "big dull button with several lines" 100x80 0.0.100
button "dual color" pic 50.50.100 100.50.50 100x80 with [edge: [color:
80.80.80]]
button "big edge" pic 100x80 with [edge: [size: 5x5 color: 80.80.80]
effects: [[fit colorize 50.100.50][fit]]]
button "oval reflect" pic 50.100.50 100x80 with [effect: [fit reflect
1x0 oval]]
return
button "text on top" pic 100x80 with [font: [valign: 'top] effects:
[[fit gradcol 1x1 200.0.0 0.0.200] [fit gradcol -1x-1 200.0.0 0.0.200]]]
button "text on bottom" pic 100x80 50.50.100 with [font: [valign:
'bottom] effects: [[fit][fit invert]]]
button "big text font" pic 100x80 with [font: [size: 24] effects:
[[fit multiply 50.100.200][fit]]]
button "cross flip" pic 50.100.50 100x80 with [effect: [fit flip
0x1 reflect 0x1 cross]]
return
toggle "toggle"
toggle "toggle red" 100.0.0
toggle "toggle up" "toggle down"
toggle "toggle colored" 0.150.100 150.20.20
toggle "up color" "down color" 0.150.100 150.20.20
toggle "toggle multiply" pic with [effects: [[fit][fit multiply 128.80.60]]]
toggle "toggle contrast" pic with [effects: [[fit][fit contrast 80]]]
toggle "toggle cross" pic with [effects: [[fit][fit cross]]]
toggle "toggle v-grad" with [effects: [[gradient 0x1 0.0.0 0.200.0]
[gradient 0x1 0.200.0 0.0.0]]]
toggle "toggle h-grad" with [effects: [[gradient 1x0 200.0.0 200.200.200][gradient
1x0 200.200.200 200.0.0]]]
toggle "toggle both" with [effects: [[gradient 1x0 140.0.0 40.40.200]
[gradient 0x1 40.40.200 140.0.0]]]
return
rotary data group
rotary data reduce [now/date now/time]
rotary data group 100.0.0 0.100.0 0.0.100
rotary data group with [font: [colors: [255.80.80 80.200.80]]]
rotary data group with [colors: [0.150.100 150.20.20]]
rotary data group pic
rotary data group pic 200.100.50
rotary data group pic with [effects: [[fit colorize 50.50.200][fit
colorize 200.50.50]]]
rotary data group with [effects: [[gradient 0x1 0.0.0 0.200.0] [gradient
0x1 0.200.0 0.0.0]]]
rotary data group with [effects: [[gradient 1x0 200.0.0 200.200.200][gradient
1x0 200.200.200 200.0.0]]]
rotary data group with [effects: [[gradient 1x0 140.0.0 40.40.200]
[gradient 0x1 40.40.200 140.0.0]]]
===Paint Program
This section is a clip of the layout portion of Frank Sievertsen's
remarkable paint program. Open this example to enable a quick link
to the real source:
button "Browse Source" [browse http://www.reboltech.com/library/html/paint.html]
button "Close" [unview]
In the example below, a DO block is used to execute initialize code.
do [
color: fill-color: start: draw-image: draw-pos: tmp: none
type: 'box
undos: [] redos: []
draw: func [offset /local tmp] [
compose [
pen (color/color) fill-pen (fill-color/color)
(type) (start) (either type = 'circle [
tmp: offset - start
to-integer square-root add tmp/x ** 2 tmp/y ** 2
] [offset])
]
]
]
backdrop effect compose [gradient 1x1 (sky) (water)]
across
draw-image: image white 300x300 effect [draw []]
feel [engage: func [face action event] [
if all [type start] [
if find [over away] action [
append clear draw-pos draw event/offset
show face
]
if action = 'up [
append/only undos draw-pos
draw-pos: tail draw-pos
start: none
]
]
if all [type action = 'down] [
start: event/offset
]
]]
do [draw-pos: draw-image/effect/draw]
guide
style text text [
tmp: first back find face/parent-face/pane face
tmp/feel/engage tmp 'down none
tmp/feel/engage tmp 'up none
]
label "Tool:" return
radio [type: 'line] text "Line"
return
radio [type: 'box] on text "Box"
return
radio [type: 'circle] text "Circle"
return
style color-box box 15x15 [
face/color: either face/color [request-color/color face/color] [request-color]
] ibevel
color: color-box 0.0.0 text "Pen"
return
fill-color: color-box text "Fill-pen"
return
button "Undo" [if not empty? undos [
append/only redos copy last undos
draw-pos: clear last undos
remove back tail undos
show draw-image
]]
return
button "Redo" [if not empty? redos [
append/only undos draw-pos
draw-pos: insert draw-pos last redos
remove back tail redos
show draw-image
]]
===Font Lab
Carl's Font lab
Here a do block is used to initialize some values needed in the layout
do [
change-styles: func [style start facet subfacet value /local v][
start: find style/pane start
foreach f start [
f: in f facet
if subfacet <> 'none [f: in get f subfacet]
either block? value [
if not block? get f [set f either none? get f [copy []][reduce [get
f]]]
either v: find get f value [remove v][head insert get f value]
][set f value]
]
show style
]
chg: func ['facet 'subfacet value] [
change-styles external-view norm-start facet subfacet value
]
shad: does [chg font shadow sdir * to-integer sl2/data * 16]
sdir: 1x1
sz: 180x40
sx2: sz/x / 2
]
style tgl toggle 60
style lab vtext bold
backcolor rebolor
space 0x5
across
p: choice 180 "Sans-Serif Style" "Serif Style" "Fixed Width Style"
[chg font name pick reduce [font-sans-serif font-serif font-fixed]
index? p/data]
return
tgl "Bold" [chg font style [bold]]
tgl "Italic" italic [chg font style [italic]]
tgl "Lined" underline [chg font style [underline]]
return
tgl "Left" of 'tg1 [chg font align 'left]
tgl "Center" of 'tg1 [chg font align 'center]
tgl "Right" of 'tg1 [chg font align 'right]
return
tgl "Top" of 'tg2 [chg font valign 'top]
tgl "Middle" of 'tg2 [chg font valign 'middle]
tgl "Bottom" of 'tg2 [chg font valign 'bottom]
return
lab "Size:" 60x20 font []
sl: slider 120x20 [chg font size max 8 to-integer sl/data * 40]
with [append init [data: .5]]
return
lab "Space:" 60x20 font []
sl1: slider 120x20 [chg font space (1x0 * to-integer sl1/data * 20)
- 5x0]
return
lab "Shadow:" 60x20 font []
sl2: slider 120x20 [shad] with [append init [data: .5]]
return
lab "Shad Dir:" 60x20
arrow left [sdir: sdir * 0x1 + -1x0 shad] pad 6
arrow right [sdir: sdir * 0x1 + 1x0 shad] pad 6
arrow up [sdir: sdir * 1x0 + 0x-1 shad] pad 6
arrow down [sdir: sdir * 1x0 + 0x1 shad] pad 6
return
button sx2 "Text Color" [chg font color request-color]
button sx2 "Area Color" [chg color none request-color]
return
button sx2 "Help" [alert "Click the controls on the left to change
text on the right."]
button sx2 "Close" #"^Q" [unview]
below
at p/offset + (p/size * 1x0) + 10x0
norm-start:
Title "Title" sz
h1 "Heading 1" sz
h2 "Heading 2" sz
h3 "Heading 3" sz
h4 "Heading 4" sz
h5 "Heading 5" sz
at norm-start/offset + (norm-start/size * 1x0) + 10x0
banner "Banner" sz
vh1 "Video Heading 1" sz
vh2 "Video Heading 2" sz
vh3 "Video Heading 3" sz
vtext "Video Text" sz
text "Document Text" sz
===Windows Clipboard
---Cut or Copy to Clipboard
Normal Windows cut and copy commands are supported e.g. on a field,
contents can be copied to the clipboard. Programmatic access is also
supported for text contents.
across
label "Entry field: "
return input-field: field 200 "Enter your text here"
return button 200 "Copy Entry field data to clipboard" [write clipboard://
input-field/text]
return button 200 "Show Clipboard Contents" [alert read clipboard://]
---Clearing The Clipboard
across
button 200 "Clear The Clipboard" [write clipboard:// ""]
return button 200 "Show Clipboard Contents" [alert read clipboard://]
---Paste from Clipboard
Normal Windows paste commands are supported e.g. on a field, contents
can be pasted. Programmatic access is also supported for text contents.
across
button 200 "Show Clipboard Contents" [alert read clipboard://]
===Requesters
REBOL View supports an assortment of requesters.
The results of the request-* code are returned as its value e.g.
chosen-date: request-date
---Request Yes | No | Cancel
Provides the user the capability to pick from choices "Yes" | "No"
| "Cancel"
The result is "True" | "False" | none
do [user-response: none]
button "Simple Request" 200 [user-response: request "Do you want
to abandon your input so far?"]
button "View User Response" 200 [alert form user-response]
---Pick A Color
do [chosen-color: gold]
button "Pick Color" 200 [chosen-color: request-color]
button "View Chosen Color" 200 [alert form chosen-color]
---Pick An Answer
The request allows a descriptive value then 1, 2, or 3 options.
button "Format" 100 [request ["Your message goes here. It will wrap
if it is very very long." "Choice 1" "Choice 2" "Choice 3"]]
button "Example 1" 100 [request ["Pick The Color of Your New Model
T" "Black"]]
button "Example 2" 100 [request ["Pick one country" "England" "France"]]
button "Example 3" 100 [request ["Run Extract Script?" "Yes" "No"
"Cancel"]]
---Pick A Date
do [chosen-date: 01-Jun-1990]
button "Pick Date" 200 [chosen-date: request-date]
button "See Chosen Date" 200 [alert form chosen-date]
---Get A LogonID and Password
do [credentials: none]
button "Get Credentials" 200 [credentials: request-pass]
button "View Credentials" 200 [
view/new layout [
size 200x200 backtile polished orange
across banner "Credentials"
return label "LogonID: " txt pick credentials 1
return label "Password: " txt pick credentials 2
]
]
---Pick A File
Format: REQUEST-FILE /title title-line button-text /file name /filter
filt /keep
do [filter-block: ["*.gif" "*.jpg" "*.png" "*.bmp"]]
button "Pick Any File" 300 [request-file "Select"]
button "Pick With A Title" 300 [request-file/title "Pick The Data
File to Process" "OK"]
button "Change the Action Button Name" 300 [request-file/title "Pick
The Data File to Process" "OK"]
button "Keep Results" 300 [request-file/title/keep "Previous Select
On This Button Is Kept" "OK"]
button "Filter Files" 300 [request-file/title/filter "Pick An Image
File" "OK" filter-block]
---Request Text Input
Format: REQUEST-TEXT /offset xy /title title-text /default str
button "Request Text Input - all default parameters" 300 [request-text]
button "Request Text Input - with offset to window" 300 [request-text/offset
40x40]
button "Request Text Input - with title" 300 [request-text/title
"Input your question"]
button "Request Text Input - with default" 300 [request-text/default
"Key your question here"]
button "Request Text Input - with all parameters" 300 [request-text/offset/title/default
100x100 "Input your question" "Key your question here"]
---Request Download from Net
Request a file download from the net. Show progress. Return none
on error.
Format: REQUEST-DOWNLOAD url /to local-file
backtile polished orange
button "Request File Download To local REBOL Cache" 300 [request-download
http://www.rebol.com/index.html]
button "Request File Download To This Directory" 300 [request-download/to
http://www.rebol.com/index.htmlnone]
button "Request File Download To Specific File" 300 [request-download/to
http://www.rebol.com/index.html%/c/temp.html]
===Message Box
button "Format" 100 [request ["Your message goes here. It will wrap
if it is very very long and tedious." "Close"]]
button "Example" 100 [request ["You done good!" "OK"]]
---Confirmation
button "Exit" 100 [
request/confirm "Do you want to quit without saving?" []
]
===Calling the Editor
The REBOL editor is now callable with the editor function
backtile polished
button 300 "Create a test file and edit it" [
write %temp.txt "This is a test file"
editor %temp.txt
] frame 204.0.0
===Calling Windows
With View/Pro the calling of executables is supported.
Here are two simple examples that will work if you have View/Pro
on a platform where a notepad and calc are avaiable.
across backtile size 200x200
return button "Notepad" [call ["notepad.exe"]]
return button "Calculator" [call ["calc.exe"]]
===Window Options
Note that these are options which are ignored by the easyvid.r code
that displays them in this tutorial.
Copy the code out and run it standalone in REBOL/View.
---Block Options: No Border and No Title
view/options layout [
size 200x200
banner "Window Options"
button "Close" [unview]
] [
no-border
no-title
]
---Word Option: No Title
Note that the results of this are surprising if you run it from within
a script that has a title option. It is displayed near location 0x0
of the resulting window instead of in the window frame that has been
suppressed.
view/options layout [
size 200x200
banner "Window Options"
button "Close" [unview]
] 'no-title
===REBOL/View Notifiers
REBOL/View supports simple notifiers to send messages to a user interface
---Alert
button 220 polished "Send alert message" [
alert "This causes a dialogue box to popup"
]
---Flash
Flash is provided to provide a message and keep on processing.
across size 200x200
return button 150 "Create Flash Message" [flash "Testing"]
return button 150 "Unview Flash" [unview]
---Inform
inform layout [
backtile polished sky
across text font-size 16 bold underline red "Action complete!"
return button "OK" [unview]]
---Popup
REBOL supports popups (see note below before running!)
across size 200x200
button "Show Popup" [
show-popup popup-layout: layout [
across size 200x200
backtile polished
banner "The Popup Worked"
return button "Unview" [unview]
]
]
return button "Hide Popup" [unview/only popup-layout]
I have had some difficulties (process lockup) when using
these popups so just use view layout [...] and skip the popup part.
===Diagram Example
Carl has created some diagrams in REBOL using styles to make an architecture
diagram.
This is a slightly modified version.
Here again a DO block precedes the layout code for non-layout initiatiation
... here the definition of a function.
Why make a diagram this way?
1. One reason is that it can be interactive ... the sections are
all "hot" with a few lines of code. Here they pop up REBOL Dialogs
but they could do anything that can be coded even something as simple
as launching a browser on a different URL for each diagram component.
The "Compositor" box demonstrates this by launching your browser
on the REBOL.com site.
2. Very small footprint size compared to other presentation source
formats.
do [
information: func [info [string!]][
request/ok reform [ info]
]
]
style bx box 255.255.255 0.0.0 font-size 11 font [color: 0.0.0 shadow:
0x0] edge [size: 5x2]
[request/ok reform ["No information on" face/text]]
style bb box bold left top para [origin: 6x10] edge [size: 2x2]
[request/ok reform ["No information on" face/text]]
backcolor silver + 30
at 15x15 h1 486 left "Arch Structure"
at 15x50 bb "Client" 506x436 160.80.80 [
information "Any client machine e.g. branch or Call Centre"]
at 25x252 bb "Mid-Tier" 486x68 effect [gradient 1x1 169.91.155
80.45.75]
at 25x152 bb "UI" 486x96 effect [gradient 1x1 38.156.82 19.78.41]
at 25x324 bb "Servers" 486x151 effect [gradient 1x1 103.96.200
50.45.100] [
information "Mid-tiers servers with XYZ relational database server"
]
at 130x216 bx "Compositor" 182x24 bold [browse http://www.rebol.com]
at 130x60 bx "Browser" 120x24 [information "Branch standard browser"]
at 130x188 bx "Sound" 182x24 bold [information "Sound services"]
at 255x60 bx "Win32" 120x24 [information "Win32 App"]
===Column Images
Creates a layout looking (a little) like columns. It uses a gradient
effect going from darker to lighter
do [
column: make image! layout [
backdrop effect [gradient 1x0 20.20.20 250.240.230 luma 60]
]
column-size: 50x420
area-size: 400x420 ; height should be the same as column-size
]
backtile polished tan
across
image column-size column
pad -10x0 ; this brings the default VID spacing back
area wrap area-size
edge none ; take the edge off of area so that it more closely
blends
shadow 2x2
pad -10x0 image column-size column ; if you want a right column
===Tree View of Directory
This is Didier's tree view %request-dir.r
In this sample, you must be online because the code is accessed on
the Rebol script server
do [do http://www.rebol.org/library/scripts/request-dir.r
request-dir
]
Note that:
* the script is read from the script library but runs locally
* it is showing the files in your directories
===The emailer Function
The function for emailing has appeared in Jan-2004 on the rebol list.
It is a simple idea ... to create a standard emailer by invoking
a function emailer. This window will show the source:
text wrap 400x300 mold get 'emailer
And it is simple to run:
across size 200x200
return button 150 "Run emailer" [emailer]
But on my machine there is again a problem - the emailer locks up
REBOL/View.
Recommendation:
* if it works use it if you like
* use Doc Kimbel's one liner (works for me). Assumes you have set
up your email in set-user
e: field "Email" s: field "Subject" m: area "Body" btn "Send"[send/subject
to-email e/text m/text s/text alert "ok"]
* better yet, make your own... if the code for the basic is 1 line,
then a custom version is not far away. Here's an example that allows
selection of your frequent contacts (entered in the names-addresses
series) and keeps a journal of email that you have sent (using this
code) in file email-journal.txt. Assumes you have setup your user
profile correctly to allow sending of email.
do [
names-addresses: [
"Contact 1" [contact1-:-no-such-address-:-com]
"Contact 2" [contact2-:-no-such-address-:-com]
"Contact 3" [contact3-:-no-such-address-:-com]
]
names: copy []
foreach [name address] names-addresses [append names name]
journal?: false ; set to true if want to journalize sent email
]
e: rotary 200 data sort names
s: field "Subject"
m: area 500x400 wrap "Body"
btn "Send"[
send/subject who-to: select names-addresses e/text m/text s/text
alert join "Sent email to: " form who-to
if journal? [
write/append %email-journal.txt rejoin [
"[ When-sent: " now/precise
" To: " who-to
" Subject: {" s/text
"} Message: {" m/text "} ] "
newline
]
]
]
btn "Quit" [unview]
It won't take much to change this from the rotary used to a text
list allowing multiple selections.
===Some More email
Earlier there have been a few examples of sending email. Here are
a few more that often appear in the mailing list
---Simple Send
This is not a runnable version because you don't need anything but
REBOL/Core to run it. It has been wrapped in a DO block so it does
not send errors to the console.
---Quick Send Short Message
do [
send [address-:-isp-:-com] "My Message"
]
---Send Longer Message
Now a more complex message where there is a body to the message:
do [
send [address-:-isp-:-com] {Sample Message
This is the body of the message
}
]
---Send with One Attachment
Here, so that the sample does not fail, test file(s) are created
by the code before attempting the send.
do [
test-file: %file-attachment.txt
write test-file {Just some test data to create a file}
send/attach [address-:-isp-:-com] {Sample Message
This is the body of the message
} test-file
]
---Send with Attachments
And a message with multiple attachments.
Here, so that the sample does not fail, test file(s) are created
by the code before attempting the send.
do [
files: [%file-attachment.txt %second-attachment.txt]
foreach file files [write file {Just some test data to create a file}]
send/attach [address-:-isp-:-com] {Sample Message
This is the body of the message
} files
]
---Send to Multiple Addresses
Here, so that the sample does not fail, test file(s) are created
by the code before attempting the send.
do [
files: [%file-attachment.txt %second-attachment.txt]
foreach file files [write file {Just some test data to create a file}]
send/attach [[address-:-isp-:-com][asecondAddress-:-isp-:-com]] {Sample Message
This is the body of the message
} files
]
---Send/only
Same send only just provide the SMTP server with one copy:
Here, so that the sample does not fail, test file(s) are created
by the code before attempting the send.
do [
files: [%file-attachment.txt %second-attachment.txt]
foreach file files [write file {Just some test data to create a file}]
send/only/attach [[address-:-isp-:-com][asecondAddress-:-isp-:-com]] {Sample
Message
This is the body of the message
} files
]
---Send With Header
This example uses a Do block to wrap the code. If you execute the
email should be sent.
But it is unlikely to be delivered.
The addresses for me and you should be changed in your use as well
as the
* Subject
* Organization
* Content
do [
me: [myaddress-:-isp-:-com]
you: [youraddress-:-isp-:-com]
header-object: make system/standard/email [
From: me
Reply-To: me
Subject: "Some Stuff"
Organization: "Cyberia"
MIME-Version: 1.0
Content-Type: "text/plain"
]
send/header you {Test Message
This is the message body.
}
header-object
]
---Send with CC
This adds a copy value in the header-object
do [
me: [myaddress-:-isp-:-com]
you: [youraddress-:-isp-:-com]
header-object: make system/standard/email [
From: me
Reply-To: me
Subject: "Some Stuff"
Organization: "Cyberia"
MIME-Version: 1.0
Content-Type: "text/plain"
cc: [another-address-:-isp-:-com]
]
send/header you {Test Message
This is the message body.
}
header-object
]
---Doctored Code
Again Doc Kimbel's one liner that does not waste a character
e: field "Email" s: field "Subject" m: area "Body" btn "Send"[send/subject
to-email e/text m/text s/text alert "ok"]
===Sharp Styles
I really like the style that Didier has put around his email previewer
do [
ss-light: stylize [
text: text feel none
vtext: vtext feel none
col-hdg: text black 255.255.204 bold middle effect []
col-txt: text edge [size: 1x0 color: gray effect: 'bevel]
ban: vh3 left to-pair reduce [
50 logo.gif/size/y] edge [
color: 0.0.0 size: 0x1] feel none with [color: black]
lab: label para [origin: 2x3 margin: 0x2]
labe: lab edge [size: 1x1 color: water effect: 'ibevel]
inf: info 100 font-color yellow
bkg: backdrop water - 10.10.10
txt-big: vtext 300 font-size 18 font-color yellow center
rti: vtext font-size 14 bold
txt-ch: rti font-color white 170x22 para [
origin: 2x3] with [font: make font [
color: white] colors: [55.95.155 235.170.55]]
btnb: btn 70.70.70 font-color white
men: rti 264 edge [size: 1x1 color: water effect: 'bevel] para [origin:
20x2 margin: 1x4]
with [color: water - 40.40.40 effect: first effects: [
[draw [pen white fill-pen white polygon 5x2 13x10 5x18]] [draw [pen
white fill-pen white polygon 2x5 10x13 18x5]]
] feel: none] ;system/view/vid/vid-feel/hot]
cbox: box 60x20 edge [size: 1x1 color: water effect: 'bevel] [
if temp: request-color/color first face/data [face/color: temp change
face/data temp show face]
] with [append init [color: first data]]
]
stylesheet: ss-heavy: stylize/styles [
col-hdg: col-hdg effect [gradcol 0x1 200.200.160 155.155.104]
ban: ban effect [merge gradcol 150.180.200 0.0.0] with [color: none]
bkg: backdrop effect [gradient 1x1 65.125.175 45.75.115 grid 2000x4
1999x4 70.130.190 blur]
txt-big: vtext 300 font-size 18 font-color yellow center
rti: vtext font-size 14 bold
txt-ch: txt-ch effect [gradcol -1x1 105.105.105 151.151.151]
men: men effect [gradcol -1x0 black water]
] ss-light
]
styles stylesheet
space 4x4 origin 4x4 across
bkg
pad 15 ban 235 :title para [origin: 32x0]
pad -254
image 30x30 %palms.jpg effect [fit key 255.0.255]
}
code: text: layo: external-view: none
sections: []
layouts: []
space: charset " ^-"
chars: complement charset " ^-^/"
rules: [title some parts]
title: [text-line (title-line: text)]
parts: [
newline
| "===" section
| "---" subsect
| "!" note
| example
| paragraph
]
text-line: [copy text to newline newline]
indented: [some space thru newline]
paragraph: [copy para some [chars thru newline] (emit txt para)]
note: [copy para some [chars thru newline] (emit-note para)]
example: [
copy code some [indented | some newline indented]
(emit-code code)
]
section: [
text-line (
append sections text
append/only layouts layo: copy page-template
emit h1 text
) newline
]
subsect: [text-line (emit h2 text)]
emit: func ['style data] [repend layo [style data]]
emit-code: func [code] [
remove back tail code
repend layo ['code 460x-1 trim/auto code 'show-example]
]
emit-note: func [code] [
remove back tail code
repend layo ['tnt 460x-1 code]
]
show-example: [
if external-view [xy: external-view/offset unview/only external-view]
xcode: load/all face/text
if not block? xcode [xcode: reduce [xcode]] ;!!! fix load/all
if here: select xcode 'layout [xcode: here]
external-view: view/new/offset layout xcode xy
]
page-template: [
size 500x480 origin 8x8
backdrop white - 80
style code tt snow navy bold as-is para [origin: margin: 12x8]
style tnt txt maroon bold
]
parse/all detab content rules
show-page: func [i /local blk last-face][
i: max 1 min length? sections i
append clear tl/picked pick sections i
if blk: pick layouts this-page: i [
f-box/pane: layout/offset blk 0x0
last-face: last f-box/pane/pane ; bh slider
f-box/pane/pane/1/size: f-box/pane/size: max 500x480 add 20x20 add
last-face/offset last-face/size ; bh slider
update-slider ; bh slider
show f-box
]
show tl ; changed to after slider update ; was not refreshing
the index display
]
update-slider: does [
sld/data: 0
either object? f-box/pane [
sld/redrag min 1.0 divide sld/size/2 f-box/pane/size/2
sld/action: func[face event] compose [
f-box/pane/offset/2: multiply face/data (subtract 480 f-box/pane/size/2)
show f-box
]
][
sld/redrag 1.0 show sld
sld/action: none
]
show sld
]
main: layout [
backtile polished
across
vh2 title-line return
tl: text-list 160x480 bold black white data sections [
show-page index? find sections value
]
h: at
f-box: box 500x480
at h + 500x0 sld: slider 24x480 ; add brett's slider
at h + 456x-24
across space 4
arrow left keycode [up left] [show-page this-page - 1]
arrow right keycode [down right] [show-page this-page + 1]
pad -150
txt white italic font-size 16 form system/script/header/date/date
]
show-page 1
xy: main/offset + either system/view/screen-face/size/x > 900 [
main/size * 1x0 + 8x0][300x300]
view main
| |
| Henrik: 17-Apr-2008 | the 11th commandment: thou shalt not change-dir in the middle of a file save. :-) | |
| [unknown: 5]: 23-Jul-2008 | There are three ways to handle such directories that I'm aware of: you can use the short directory format: change-dir %/c/progra~1/ you can use the long directory format: change-dir %/c/program files/ or you can just use the native format: change-dir to-rebol-file "c:/program files/" | |
| Anton: 27-Oct-2008 | Navigating my public directory: >> change-dir %"~niclasen/" ** Access Error: Bad file path: ~niclasen/ ** Where: clean-path ** Near: get-modes target 'full-path | |
| eFishAnt: 16-Apr-2009 | >list-dir ;after the file crashes...aha, I could see the files before doing the main.r. main.r main.r My scripts work fine on Windoze. I am now thinking from this...I do a change-directory to get the directory of where I am running and I write my data into the current directory. In Windoze, the change-directory seemed needed to pick up the directory I am in. I'll bet 'nix doesn't like that, and perhaps needs the full pathnamem from the root, or soemthing like that. | |
| sqlab: 22-Jul-2009 | Sunanda, does your timestamp file mean a file with the timestamp as content or just the date and time of the file? I have many times seen, that the timestamp of a file under windows does not change, although there is always data added to the file. | |
| Maxim: 28-Jan-2010 | We really need a simple list of changes compiled in a single file, I have no clue how and when the process of 2.7.7 occured, and really, I've got A LOT of other "cats to whip". FYI, this not a negative comment, just stating that unless someone builds a (similar to prior versions) simple list of all changes, I won't be able to use 2.7.7... as previous versions have bitten me, I can't risk running code in an untrusted environment... I feel others with serious tools and services might feel the same.. a single little change change cause havoc like data destruction which is only apparent, once the process is done. | |
| BrianH: 30-Jan-2010 | ; Aliases copied from R3 mezz-file ls: :list-dir pwd: :what-dir rm: :delete mkdir: :make-dir cd: func [ "Change directory (shell shortcut function)." [catch] 'path [file! word! path! unset! string! paren!] "Accepts %file, :variables and just words (as dirs)" ][ ; Workaround for R3 change in lit-word! parameters with paren! arguments if paren? get/any 'path [set/any 'path do path] switch/default type?/word get/any 'path [ unset! [print what-dir] file! [change-dir path] string! [change-dir to-rebol-file path] word! path! [change-dir to-file path] ] [throw-error 'script 'expect-arg reduce ['cd 'path type? get/any 'path]] ] more: func [ "Print file (shell shortcut function)." [catch] 'file [file! word! path! string! paren!] "Accepts %file, :variables and just words (as file names)" ][ ; Workaround for R3 change in lit-word! parameters with paren! arguments if paren? :file [set/any 'file do :file] print read switch/default type?/word get/any 'file [ file! [file] string! [to-rebol-file file] word! path! [to-file file] ] [throw-error 'script 'expect-arg reduce ['more 'file type? get/any 'file]] ] | |
| Anton: 14-May-2010 | >> print mold get-modes %user.r get-modes %"" 'file-modes [status-change-date: 10-May-2009/16:24:13+10:00 modification-date: 10-May-2009/16:24:13+10:00 access-date: 14-May-2010/21:42:52+10:00 owner-name: "anton" group-name: "anton" owner-id: 1000 group-id: 1000 owner-read: true owner-write: true owner-execute: false group-read: true group-write: false group-execute: false world-read: true world-write: false world-execute: false set-user-id: false set-group-id: false full-path: %/home/anton/dev/rebol/view/user.r] | |
| james_nak: 16-Sep-2010 | I give up. I have a routine that creates CSV files but I am stuck with how change what is an 0D 0A to just an 0A when it comes to setting up the actual CSV text file. Anyone know? | |
| Ladislav: 6-Oct-2010 | that is a problem, I need to touch the file, i.e. change the date, but, nevermind, I can make a work-around | |
| Group: View ... discuss view related issues [web-public] | ||
| Volker: 18-Aug-2005 | maybe its possible to suggest a file, and if the user does not change the text that name is returned? need experimenting. | |
| Henrik: 7-Jan-2006 | LIST-VIEW version 0.0.16 uploaded.
Changes:
Fix: LAST-CNT crashed on empty SORT-INDEX after filtering
New: FILL flag to set whether or not to paint all rows in the list
view
New: COLORS/4 contains the color of the background behind the rows.
New: When resizing OUT-COLS in runtime, WIDTHS is reset to default
values
Fix: Columns can now be appended or removed to OUT-COLS in runtime
Fix: Changed behaviour so that DATA is always treated as
a block of blocks if manipulated by LIST-VIEW itself.
Only external input of a single block value can change this.
Fix: INSERT-ROW-HERE, REMOVE-ROW-HERE, CHANGE-ROW-HERE
failed on empty DATA
New: Stricter typechecks on manipulation functions
Fix: Values are now copied into DATA
Fix: Sorting did not work, when using only one DATA column
New: Allows using keyed blocks as input for manipulating functions.
Fix: Header size now calculated with OUT-COLS also, which removes
a crash
New: Created a test suite in file list-demo.r
New: Moved demo code out of this file
Main file is available at:
http://www.hmkdesign.dk/rebol/list-view/list-view.r
Demo and testcases available at:
http://www.hmkdesign.dk/rebol/list-view/list-demo.r
Docs are available in makedoc2 format at:
http://www.hmkdesign.dk/rebol/list-view/list-view.txtand
http://www.hmkdesign.dk/rebol/list-view/list-view.html
| |
| Louis: 16-Oct-2006 | What I want is: 1. The exchange rate to be saved in a file, so that it will always be loaded upon start the script. 2. The exchange rate to remain in the field through each loop of view. 3. And, of course, I want to be able to change the exchange rate if needed. Seems like it should be a common easy thing to do, but it eludes me. | |
| Group: I'm new ... Ask any question, and a helpful person will try to answer. [web-public] | ||
| Gregg: 2-Jun-2009 | I also have CDR for change-dir+to-rebol-file. | |
| alemar: 18-Jan-2011 | so i just gotta change the file location | |
| todun: 5-Oct-2011 | how do I make the data loaded from the file change to another token in the file when I click another button? | |
| Group: Parse ... Discussion of PARSE dialect [web-public] | ||
| Gregg: 2-Dec-2011 | load-csv: func [
"Load and parse a delimited text file."
source [file! string!]
/with
delimiter
/local lines
][
if not with [delimiter: ","]
lines: either file? source [read/lines source] [parse/all source
"^/"]
remove-each line lines [empty? line]
if empty? lines [return copy []]
head forall lines [
change/only lines parse/all first lines delimiter
]
]
| |
| Group: Announce ... Announcements only - use Ann-reply to chat [web-public] | ||
| Maxim: 25-Oct-2010 | - MAJOR ANNOUNCEMENT - Custom Gob Renderers : prototype released After weeks of work at various levels, here is the first prototype release of my R3 host-kit running OpenGL in HW. http://www.pointillistic.com/open-REBOL/moa/files/r3-cgr.zip I updated it to A109 this week-end, I also completely rebuilt the file structure so that all of my tools are outside of the host tree. only the actual host-code patches remain within the host. the distribution includes compiled versions as well as the latest R2 2.7.7 unreleased patch. note that the current OpenGL CGR is not currently very programmable a part from giving it polygons to view, you can't change anything. the view will rotate by 1 degre everytime you call show or refresh on it (so it can be used for model turntables). resizing the window resizes the view. notice that full-screen doesn't affect rendering that much. open the readme file for more information also note that the current geometry engine auto-calculates surface normals using face normals, so you'll have a faceted look. next release I'll add support for vertex normals which will allow smooth shading (at no cost). please reply in ann-reply, and report any problems you may have... I'll fix ASAP.Custom Gob RenderersCustom Gob Renderers | |
| Cyphre: 14-Jan-2011 | New RMA release of R3GUI is available on: http://www.rm-asset.com/code/downloads/files/r3-gui-src.zip- this is the full source version + docs http://www.rm-asset.com/code/downloads/files/r3-gui.r3.zip- this is the 'classic' one file release Feel free to try it and let us know in the R3GUI Altme group. Any feedback is appreciated. NOTE: this version is compatible only with the RMA version of Rebol3. You can get it from: http://www.rm-asset.com/code/downloads/files/rma-r3-build.zip Release change notes: - added missing images to docs (thanks to Pekr) - UNVIEW now works like in R2 - removed STYLE/FACED, now it is obsolete (use only STYLE/FACETS) - improvements to facets creation - fixed box-model border caclulation - fixed binding of actors - DO-STYLE code optimalization and fixes - VIEW function cleanup, now it should work on block of faces as well - fixed panel(container) names binding - fixed 'load trigger calling - fixed WHEN style - misc smaller fixes - old unused code cleanup | |
| Maxim: 27-Jan-2011 | GLASS RELEASE 002 --------------------------- released last week, but posting it here to make it easier to find, since the GLASS group has a lot of discussion in it.... http://www.pointillistic.com/open-REBOL/moa/files/glass-r002.zip -adds the editor style, which is now able to show text and scroll in real-time, but still has no keyboard handling yet. -adds a few new more advanced tutorials -adds a new demo app which is the basis for a full text-editor in REBOL (you can use the load button which allows you to load text within the editor, it loads files almost instantaneously... I was surprised how quickly it loaded even 1MB files), file size doesn't change editor refresh speed.. very extensive history of changes, very extensive TO DO list some improvements to libs here and there. | |
| Cyphre: 28-Jan-2011 | New RMA release of R3GUI is available on: http://www.rm-asset.com/code/downloads/files/r3-gui-src.zip- this is the full source version + docs http://www.rm-asset.com/code/downloads/files/r3-gui.r3.zip- this is the 'classic' one file release Feel free to try it and let us know in the R3GUI Altme group. Any feedback is appreciated. NOTE: this version is compatible only with the RMA version of Rebol3. You can get it from: http://www.rm-asset.com/code/downloads/files/rma-r3-build.zip Release change notes: - show-native recursive issue fixed - enhancements to TEXT-LIST, TEXT-TABLE, TAB-BOX styles - fixed DO reactor call - fixed reactor actions handling - optimized INIT-PANEL function - added FOREACH-FACE function - fixed internals of triggers subsystem - optimized DRAW blocks handling - optimized DO-STYLE and DO-TRIGGERS code - added triggers handling to set/insert-panel-content - lists.r3 code cleanup - cleanup of unused/leaked variables | |
| Maxim: 1-Feb-2011 | ------------------------------------------ GLASS Release 003 is here: ------------------------------------------ http://www.pointillistic.com/open-REBOL/moa/files/glass-r003.zip ---------------------------------------------------------- everything promised for this release has been done: ---------------------------------------------------------- -Editor style and associated text editor application (Cristoph) http://www.pointillistic.com/open-REBOL/moa/files/tutorial-image-style.png -Encap friendly single file version of ALL glass libs, usable just like if they where external files. (Graham) -The encap version of glass is all packaged within its own .zip file inside the root of the distro, to make it easier to get started. -Image style (jocko) -it also has a pretty cool image style demo app. http://www.pointillistic.com/open-REBOL/moa/files/red-text-editor-v0.5.7.png -quite a few nuts and bolts worked on here and there. -reworked the folder structure a bit to make it cleaner (it shouldn't change much from now on), tell me what you think? -Added original SVG files used to create icons as part of distribution -Added a few reference glass-related images for demos and tutorials. -windows have automatic title handling when you fill their labels. (shown in text editor) -many libs have had their apis improved -extensive HISTORY AND RELEASE NOTES in docs folder. | |
| Group: !RebGUI ... A lightweight alternative to VID [web-public] | ||
| Normand: 4-Jun-2008 | Hi, folks. I am getting back to an application I developped with RebGui in 2006. I did download the last one from SVN, but the app no longer works under the current version of RebGui. I get a lot of error messages about show-text, even the most simple ones, like --> show-text Fmsg "Warning -- Unable to read Products, Phone&Meet and Notes. No file to read." <--. Looking at docs, I still see the show-text function; there is still some appearances in some docs, but there are not much. Maybe it is deprecated now? I see set-text, but it talks about attributes of text, not its content. So not shure it is the one to use now. I would need to show the app soon, but hesitate to retarget the code, seing the frequency of the error message ** Script Error: show-text has no value. Inexistant function, bad assignement (for unknown reasons), or something else. For me, hard to know now. From the 2006 epoch, is there a lot of change. The app still get drawn a bit, though. Thanks for an answer that would me out of problem. | |
| shadwolf: 28-Aug-2008 | ok sorry too much change well a fast solution would be i think to copy the liste-view code after rebface[ and paste it to the regui.r file where belongs table: make rebface ] | |
| Pekr: 14-Oct-2009 |
As append-widget removal was oversimplification imo, especially for
the widget authors, I created short script, which kind of automates
the process ....
1) Save the script, e.g. make.r, into the RebGUI root dir
2) create one file, called %my-widget-list.r, containing unnamed
block, containing file-names. Your widgets can be placed anywhere
3) create backup of %rebgui-widgets.r, call it %rebgui-widgets.old.r,
in order to be able to easily "remove" widgets by commenting them
out in file 2)
Here's the script:
REBOL []
;--- to enable removal of unwanted own widgets, create
;--- copy of rebgui-widgets.r into rebgui-widgets.old.r
;--- remember to do so, when official distro release contains new
widgets!
if exists? %rebgui-widgets.old.r [
write %rebgui-widgets.r read %rebgui-widgets.old.r
]
;--- load list of widgets you want to include
;--- file containing un-named block of list of files to include
widgets-to-include: load %my-widget-list.r
template: "^-#include %widgets/^/"
;--- read RebGUI widget list (%rebgui-widgets.r)
tmp: read %rebgui-widgets.r
widget-buffer: copy "^/"
foreach widget-filepath widgets-to-include [
widget: last split-path widget-filepath
;--- copy widget to the widget-directory
write join %widgets/ widget read widget-filepath
;--- build string containing widget names you want to add ...
;--- but only when not already on the list - prevent duplicate entries
if not found? find tmp widget [
append widget-buffer (head insert find/tail copy template "/" widget)
]
]
;--- append to RebGUI widget-list (%rebgui-widgets.r)
change back back tail tmp (append widget-buffer "]")
write %rebgui-widgets.r tmp
;--- rebuild RebGUI distribution ...
call "create-distribution.r"
| |
| Group: Rebol School ... Rebol School [web-public] | ||
| PatrickP61: 6-Mar-2009 | Yes that worked, I was able to the following: change-dir FILE-DIR Thank you | |
| Vladimir: 27-Mar-2009 | I had an idea.... :) bare with me.... is it possible to start a script that would while running, change itself (file on disk), and than transfer control to this new version of itself ? | |
| todun: 5-Oct-2011 | How do I make the data loaded from the file change to another token in the file when I click another button? | |
| Group: !REBOL3-OLD1 ... [web-public] | ||
| Henrik: 4-Oct-2007 | I don't need a perfect R3. I just need to make some forms... <-- For that you need VID3 to be complete and the view system as well. You need skins and you need a functioning event system. You need keyboard input and a proper way to direct form text data to objects or file storage. Furthermore since you don't want to change it, we have to have the layout dialect in feature freeze, which it isn't. It's currently undergoing design review, before we add more features. Not simple. :-) | |
| Henrik: 19-Sep-2008 | The browser as the launch platform for applications has always been an interesting idea. The fundamental problem of the sheer complexity of it can be solved with R3. If done right, it can completely wipe the floor with browsers and AJAX. I think the problem is that we haven't been speaking in a language that people can understand, such as "browser", "web2.0" and "webserver", but instead "dialects", "VID", "Viewtop" and "X Internet" and people go "huh?". Some things I believe are needed to do this right: - Browser form factor. People are used to browsers, not Viewtops. What's always the first thing a complete newbie computer user uses, when wanting to do anything on the internet? A webbrowser. I don't want a desktop inside my desktop. There are tens of solutions for such things and they are almost all forgotten. Carl is doing the REBOL browser. When you fire up R3, you will get what looks like a webbrowser and acts like one. The concept has to work equally well for people like us, as well as 5-year-olds and 95-year-olds. - Do apps that are similar to webapps, like GMail. That's a quick way to compare. Don't you think a 50k GMail look-a-like inside a REBOL browser running at native speeds would be _slightly_ impressive? Remember to say that you can serve 5 times more users with the same bandwidth. REBOL can help make raw numbers look better without much effort. Google would have to use it as a content platform. They have no other choice. :-) Chrome? What's that? - Plugins suddenly are very flexible. You don't have plugins as in Firefox, but helper scripts that can enhance/change your browsing experience. 15k full screen document reader that prettifies plain text files? Sure thing. Blog posts presented in that would be much nicer to read. Out goes the PDF reader. - Do apps that are completely out of the league of AJAX, such as multithreaded P2P systems. In fact, why not build P2P capabilities right in? Have different instances of the browser allow users to connect and chat, when they are visiting the same "Rebsite". It's sort of like going into a physical store and chatting with the other customers and you decide to exchange business cards. Initial contact without needing email. Do the same thing with chat support for an article that you bought at that "rebsite". Current websites are almost completely anonymous. You don't feel you are entering a live community. Coded in REBOL/Services. - Webpages are now REBOL scripts. In R3, scripts can be closed and encrypted, so you can't read the source and you can sell scripts and have them signed. The best you can do right now is some kind of code obfuscation. - Windows, MacOSX and Linux version. - "A webbrowser that directly supports OpenGL without obscure/limited 3rd party plugins." Say that again in your head. - It's very important that the public get to see that creating REBOL scripts for the browser is very similar to creating plain HTML pages. REBOL scripts can be served off a plain webserver. All the infrastructure is already there. Or how about serving scripts from the browser itself? AltME can both be a client and a server. It's that P2P thing again. - Browser would run wherever R3 runs. - Market it as Web 4.0. Market it as a direct competition to current webbrowsing. - Browser would be a 500-600 kb downloadable exe that starts immediately without installation. From deciding to get it, to be using it to browse "Rebpages", it should not take more than 30-45 seconds. - We need AltME in that browser (Altissimo?) as well as QTask. For developers: - It's easy to create an HTML file in notepad and display it in your favourite browser. It's going to be equally easy to create a REBOL script in notepad and see it running in your REBOL browser. A 5-year-old who has just learned to type, should be able to create a script and display it. - One language for everything. - Everything is free. You can start out with notepad. The barrier for creating content is about as low as it can get. - You wanna code slow web 2.0 apps or fast web 4.0 apps? Hard choice, I know. | |
| BrianH: 7-Jan-2009 | Here's the current source for LOAD:
load: func [
{Loads a file, URL, or string.}
source [file! url! string! any-block! binary!]
/header {Includes REBOL header object if present. Preempts /all.}
; /next {Load the next value only. Return block with value and
new position.}
; /library {Force file to be a dynamic library. (Command version)}
; /markup {Convert HTML and XML to a block of tags and strings.}
/all {Load all values. Does not evaluate REBOL header.}
/unbound {Do not bind the block.}
/local data tmp
][
; Note: Avoid use of ALL func, because of /all option
if any-block? :source [return :source]
data: case [
string? source [to-binary source]
binary? source [source]
; Check for special media load cases: (temporary code)
find [%.jpg %.jpeg %.jpe] suffix? source [
return load-jpeg read/binary source
]
url? source [read source] ; can this possibly return not binary!
?
file? source [read source] ; binary! or block of file!
]
; At this point, data is binary!, a block of file!, or something
weird.
if binary? :data [
unless find [0 8] tmp: utf? data [
cause-error 'script 'no-decode ajoin ['UTF tmp]
]
; Only load script data:
if any [header not all] [ ; Note: refinement /all
if tmp: script? data [data: tmp]
]
]
unless block? :data [data: to block! :data] ; reduce overhead
; data is a block! here, unless something really weird is going on
tmp: none
; Is there a REBOL script header:
if any [header not all] [ ; /header preempts /all
tmp: unless any [
;not any [file? source url? source] ; removed: hdr in string is same
unset? first data ; because <> doesn't work with unset!
'rebol <> first data
not block? second data
][ ; Process header:
attempt [construct/with second data system/standard/script]
]
; tmp is header object or none here
case [
tmp [
remove data
either header [change data tmp][remove data]
tmp: tmp/type = 'module ; tmp true if module
]
header [cause-error 'syntax 'no-header data]
]
]
; tmp is true if module, false or none if not
; data is a block!, with possible header object in first position
; Bind to current global context if not a module:
unless any [
unbound
tmp ; not a module
][
bind/new data system/contexts/current
]
; data is a block! here, unless something really weird is going on
; If appropriate and possible, return singular data value:
unless any [ ; avoid use of ALL
all
header ; This fixes a design flaw in R2's LOAD
;not block? :data ; can this ever happen?
empty? data ; R2 compatibility
not tail? next data
][data: first data]
; If /all or /header, data is a block here
:data
]
| |
| Gregg: 28-Jan-2009 | Like Oldes, I have a do-clip func in %user.r, along with a cc func to copy, vv to paste, and cdr to "change-dir to-rebol-file". Handy stuff. | |
| BrianH: 6-Feb-2009 |
As an alternative to DIR-EXISTS? and FILE-EXISTS? we could change
EXISTS? so it returns more information.
; R3 version:
exists?: func [
"If a file or URL exists returns 'file or 'dir, otherwise none."
target [file! url!]
][
select attempt [query target] 'type
]
; R2 version:
exists?: func [
"If a file or URL exists returns 'file or 'dir, otherwise none."
target [file! url!]
][
unless error? try [
target: make port! target
query target
] [
either 'directory = target/status ['dir] [target/status] ; To work
around a current incompatibility
]
]
EXISTS? could still be used in conditional code, with the exception
of AND and OR, but would have more info if you need it.
| |
| BrianH: 7-Feb-2009 | Well, we really need the information returned by the EXISTS? function above, and my last attempt to get that information out in a R2-R3 compatible way (the above *-EXISTS? functions) got a lot of complaints (mostly from Gregg, as I recall). This is hopefully a less annoying change, and is compatible now even without the 'dir tweak if you check against 'file instead. My opinion of the *? functions that are meant to be predicates is that they should be usable as predicates, but don't necessarily need to be simple predicates. As long as you can use them in IF statements, they're fine. We have methods to convert from REBOL truth values to logic! if we need to. | |
| BrianH: 7-Feb-2009 | Sure. In REBOL 2 there are 2 functions, EXISTS? and DIR?, that check for whether a file! refers to an existing file and whether the existing file is a directory, respectively. Both of these functions wrap around QUERY, a low-level native that works very differently between R2 and R3, mostly because of the port model change. In addition, DIR? has a design shortcoming in R2 (mentioned in CureCode ticket #602) and both DIR? and EXISTS? share the same bug in QUERY in R3 (#606, affects #602 and #604). All of these combine into a few problems: - People who want to write file and directory management code that is portable between R2 and R3 have trouble doing so. - Bugs of the kind mentioned in #602 are not likely to be fixed in R2, so we have to consider DIR? broken for non-existing directories. - Using both DIR? and EXISTS? means two QUERY calls, which has overhead, particularly for networked files. - Attempts to get around this using QUERY require completely different code in R2 and R3, so wrappers would be nice. As it specifically relates to 2.7.6, for people who don't care about forwards compatibility, there is only one problem: >> DIR? %nonexistingdirectory/ == false ; Should be true, unlikely to change | |
| BrianH: 12-Mar-2009 | The relevant portion of the LIST-DIR source is this:
switch type?/word :path [
unset! []
file! [change-dir path]
string! [change-dir to-rebol-file path]
word! path! [change-dir to-file path]
]
You should try SOURCE MORE for a simpler example of this method.
| |
| Steeve: 22-Mar-2009 | 1/ I mix several gobs of all types (effect draw text color). Basicaly, drawings can be mixed with texts. 2/ only gobs which are modified are reconstructed, it should be fast to insert modify text. 3/ The structure of gobs is build using an external grammar (with parse), depending of the source file type. The parser convert the source text into a DOM structure, which is converted into a gobs structure further usings a style grammar (external too). 4/ It will be a verstatil richtext editor. By changing of external grammars (basically a set of parse rules), we change the rendering. 5/ The grammar for a specific markup langage will be tiny. Currently, the grammar of makedoc2 is less than 2 Kb. 6/ In theory, easy conversion between different makup language could be done by the engine (makedoc <-> postscript <-> pdf ...) 7/ After makedoc2 rules will be ok, I'll build a grammar for rebol sources of course. | |
| BrianH: 3-Apr-2009 | load: func [
{Loads a file, URL, or string.}
source [file! url! string! binary! block!] {Source or block of sources}
/header {Includes REBOL header object if present. Preempts /all.}
/next {Load the next value only. Return block with value and new
position.}
; /library {Force file to be a dynamic library. (Command version)}
; /markup {Convert HTML and XML to a block of tags and strings.}
/all {Load all values. Does not evaluate REBOL header.}
/unbound {Do not bind the block.}
/local data content val rst tmp
][ ; Note: Avoid use of ALL and NEXT funcs, because of /all and
/next options
content: val: rst: tmp: none ; In case people call LOAD/local
; Retrieve the script data
data: case [
block? source [ ; Load all in block
return map x source [apply :load [:x header next all unbound]]
]
string? source [source] ; Will convert to binary! later
binary? source [source]
; Otherwise source is file or url
'else [
; See if a codec exists for this file type
tmp: find find system/catalog/file-types suffix? source word!
; Get the data, script required if /header
content: read source ; Must be a value, not unset
case [
binary? :content [content] ; Assumed script or decodable
string? :content [content] ; Assumed script or decodable
header [cause-error 'syntax 'no-header source]
block? :content [content]
'else [content: reduce [:content]]
] ; Don't LOAD/header non-script data from urls and files.
] ; content is data if content doesn't need copying, or none if it
does
]
;print [1 "data type?" type? :data 'content true? :content]
if string? :data [data: to-binary data] ; REBOL script is UTF-8
assert/type [data [binary! block!] content [binary! string! block!
none!]]
assert [any [binary? :data not header]]
if tmp [ ; Use a codec if found earlier
set/any 'data decode first tmp :data
; See if we can shortcut return the value, or fake a script if we
can't
case [
block? :data [if header [insert data val: make system/standard/script
[]]]
header [data: reduce [val: make system/standard/script [] :data]]
(to logic! unbound) and not next [return :data] ; Shortcut return
any [next any-block? :data any-word? :data] [data: reduce [:data]]
'else [return :data] ; No binding needed, shortcut return
]
assert/type [data block!] ; If we get this far
]
;print [2 'data mold to-string :data]
if binary? :data [ ; It's a script
unless find [0 8] tmp: utf? data [ ; Not UTF-8
cause-error 'script 'no-decode ajoin ["UTF-" abs tmp]
]
; Process the header if necessary
either any [header not all] [
if tmp: script? data [data: tmp] ; Load script data
; Check for a REBOL header
set/any [val rst] transcode/only data
unless case [
:val = [rebol] [ ; Possible script-in-a-block
set/any [val rst] transcode/next/error rst
if block? :val [ ; Is script-in-a-block
data: first transcode/next data
rst: skip data 2
] ; If true, val is header spec
]
:val = 'rebol [ ; Possible REBOL header
set/any [val rst] transcode/next/error rst
block? :val ; If true, val is header spec
]
] [ ; No REBOL header, use default
val: [] rst: data
]
; val is the header spec block, rst the position afterwards
assert/type [val block! rst [binary! block!] data [binary! block!]]
assert [same? head data head rst]
; Make the header object
either val: attempt [construct/with :val system/standard/script]
[
if (select val 'content) = true [
val/content: any [:content copy source]
]
] [cause-error 'syntax 'no-header data]
; val is correct header object! here, or you don't get here
; Convert the rest of the data if necessary and not /next
unless any [next block? data] [data: rst: to block! rst]
if block? data [ ; Script-in-a-block or not /next
case [
header [change/part data val rst] ; Replace the header with the object
not all [remove/part data rst] ; Remove the header from the data
]
rst: none ; Determined later
]
] [rst: data] ; /all and not /header
]
; val is the header object or none, rst is the binary position after
or none
assert/type [val [object! none!] rst [binary! none!] data [binary!
block!]]
assert [any [none? rst same? head data head rst] any [val not header]]
;print [3 'val mold/all :val 'data mold/all :data "type?" type? :data]
; LOAD/next or convert data to block - block either way
assert [block? data: case [
not next [ ; Not /next
unless any [block? data not binary? rst] [data: to block! rst]
data
]
; Otherwise /next
block? data [reduce pick [[data] [first+ data data]] empty? data]
header [reduce [val rst]] ; Already transcoded above
binary? rst [transcode/next rst]
]]
; Bind to current global context if not a module
unless any [ ; Note: NOT ANY instead of ALL because of /all
unbound
(select val 'type) = 'module
][
bind/new data system/contexts/current
]
;print [6 'data mold/all :data 'tmp mold/all :tmp]
; If appropriate and possible, return singular data value
unless any [
all header next ; /all /header /next
empty? data
1 < length? data
][set/any 'data first data]
;print [7 'data mold/all :data]
:data
]
| |
| Janko: 9-Apr-2009 | persistent here doesn't mean it's in a db or a file but it means that data structures in clojure are immutable and theoretically when you change one you always get a new copy so threads can't break stuff to other threads in the middle of process, but the catcth is that that copy is not really a copy (which would be simple and *expensive*) but same structure reused with some different paths so that it is different ( I hope I made any sense ) .. he explained it in some video very nicely | |
| Pekr: 10-Apr-2009 | btw - Codecs were moved away from Catalog, because Codecs will change. Where's the catalog/file-types placed now? (it will not be immutable too) | |
| Pekr: 29-Apr-2009 | I have difficulcy to get Chat files. I do nf, to list new files, then I submit get * but nothing is synced. I try other aproach, going to e.g. R3 mezzanines section, and doing get * does either report, that there was no change to files, or that my local copy is changed, and hence it can't be synced. I am sure I did not do any local changes here ... So - how do you usually work with Chat file facility? | |
| shadwolf: 23-Sep-2009 | i tested even forcing rebol to use the tff file from windows XP and that produced the same sizing bug all the text motion turns around the idea you don't have much to care about each char size in pixel since it's always the same you do a size-text call on "MM" only when you change the font size (growing the text shrinking it) and that's all if we had to care about the rendering of each elements in the texts that woud be a real pain | |
| BrianH: 13-Oct-2009 | IN-DIR is used for file manipuulation code, when you need to change the directory for onne bit of code and then change back. | |
| Steeve: 22-Dec-2009 | can you just change this function:
send-chunk: func [port file /local data] [
append clear data read/part file 20000
if empty? data [return false]
print ["send:" length? data "bytes"]
write port data
read port
true
]
just an idea, not tested
| |
| Group: !Cheyenne ... Discussions about the Cheyenne Web Server [web-public] | ||
| Graham: 22-Sep-2009 | In the www directory there's a demo file called email.rsp which you can use to test the MTA. Change line 58 to your own from address. | |
| Janko: 22-Oct-2009 |
alias "/show/" %www/mobispots.net/show.rsp -- gives me normal 404
of cheyenne (or any nonexistent file)
<html><body><h1>404 Page not found</h1></body></html>
alias "/show/" %show.rsp -- gives me
#[object! [
code: 502
type: access
id: cannot-open
arg1: %/D/devel/cheyenne0919/www/mobispots.net/www/mobispots.net/
arg2: #[none]
arg3: #[none]
near: [change-dir first splitted: split-path file]
where: #[none]
]]
| |
| Janko: 4-Jan-2010 | aha, I see it now.. btw: I noticed one thing.. when I uploaded file request/conetnt keys returned to strings from words .. so I had to do req: request/content forskip req 2 [ change req to-word first req ] to fix them back | |
| Will: 7-Feb-2010 | here is from the change-log: RSP: new method 'store added to Request object. It simplifies uploaded files management by abstracting file's location (memory or disk). Example: request/store request/content/file %attached/ will save the uploaded file passed as "file" query parameter in %attached/ folder using the original name (!!watch out for security issues!!). request/store request/content/file %attached/my-file.bin will save the uploaded file with a forced name (original name needs to be saved separatedly if needed). | |
| Kaj: 10-May-2010 | --- mod-userdir.r.original 2010-05-09 19:28:10.000000000 +0200 +++ mod-userdir.r 2010-05-11 00:45:24.000000000 +0200 @@ -12,40 +12,81 @@ on-started: does [do boot-code] on-reload: does [clear boot-code] - get-ugid: func [name [string!] /local file uid gid][ - if none? attempt [file: read %/etc/passwd][ + get-ugid: func [name [string!] /local file line uid gid][ + unless attempt [file: read/lines %/etc/passwd][ log/error "accessing /etc/passwd failed" return none ] - unless parse/all file [ - thru name 2 [thru col] - copy uid to col skip - copy gid to col - to end - ][ - log/error "reading /etc/passwd failed" + foreach line file [ + if all [line: find/case/match line name col = first line][ + return either parse/all next line [ + thru col + copy uid to col skip + copy gid to col + to end + ][ + reduce [to-integer uid to-integer gid] + ][ + log/error "invalid format reading /etc/passwd !" + none + ] + ] + ] + log/error "user not found in /etc/passwd" + none + ] + + get-gid: func [name [string!] /local file line gid][ + unless attempt [file: read/lines %/etc/group][ + log/error "accessing /etc/group failed" return none ] - reduce [to-integer uid to-integer gid] + foreach line file [ + if all [line: find/case/match line name col = first line][ + return either parse/all next line [ + thru col + copy gid to col + to end + ][ + to-integer gid + ][ + log/error "invalid format reading /etc/group !" + none + ] + ] + ] + log/error "group not found in /etc/group" + none ] - change-id: func [id [word! integer!] /user /group][ - if word? id [ - if none? id: get-ugid mold id [return none] - id: pick id to-logic user + change-id: func [id [string! integer!] /user /group /local gid][ + either string? id [ + unless id: get-ugid id [return none] + set [id gid] id + ][ + gid: id ] - either user [ + if group [setgid gid] + if user [ ;logger/file.log: join logger/file ["-" id %.log] setuid id - ][setgid id] + ] + ] + + change-gid: func [id [string! integer!]][ + if string? id [ + unless id: get-gid id [return none] + ] + setgid id ] words: [ user: [word! | integer!] in globals do [ - repend boot-code ['change-id/user to-lit-word args/1] + repend boot-code either word? args/1 [['change-id/user/group mold args/1]] [['change-id/user args/1]] ] group: [word! | integer!] in globals do [ - repend boot-code ['change-id/group to-lit-word args/1] + unless empty? boot-code [change boot-code [change-id/user]] + insert boot-code reduce ['change-gid either word? args/1 [mold args/1][args/1]] ] ] ] \ No newline at end of file | |
| Kaj: 7-Sep-2010 | --- mod-userdir.r.original 2010-05-09 19:28:10.000000000 +0200 +++ mod-userdir.r 2010-05-11 00:45:24.000000000 +0200 @@ -12,40 +12,81 @@ on-started: does [do boot-code] on-reload: does [clear boot-code] - get-ugid: func [name [string!] /local file uid gid][ - if none? attempt [file: read %/etc/passwd][ + get-ugid: func [name [string!] /local file line uid gid][ + unless attempt [file: read/lines %/etc/passwd][ log/error "accessing /etc/passwd failed" return none ] - unless parse/all file [ - thru name 2 [thru col] - copy uid to col skip - copy gid to col - to end - ][ - log/error "reading /etc/passwd failed" + foreach line file [ + if all [line: find/case/match line name col = first line][ + return either parse/all next line [ + thru col + copy uid to col skip + copy gid to col + to end + ][ + reduce [to-integer uid to-integer gid] + ][ + log/error "invalid format reading /etc/passwd !" + none + ] + ] + ] + log/error "user not found in /etc/passwd" + none + ] + + get-gid: func [name [string!] /local file line gid][ + unless attempt [file: read/lines %/etc/group][ + log/error "accessing /etc/group failed" return none ] - reduce [to-integer uid to-integer gid] + foreach line file [ + if all [line: find/case/match line name col = first line][ + return either parse/all next line [ + thru col + copy gid to col + to end + ][ + to-integer gid + ][ + log/error "invalid format reading /etc/group !" + none + ] + ] + ] + log/error "group not found in /etc/group" + none ] - change-id: func [id [word! integer!] /user /group][ - if word? id [ - if none? id: get-ugid mold id [return none] - id: pick id to-logic user + change-id: func [id [string! integer!] /user /group /local gid][ + either string? id [ + unless id: get-ugid id [return none] + set [id gid] id + ][ + gid: id ] - either user [ + if group [setgid gid] + if user [ ;logger/file.log: join logger/file ["-" id %.log] setuid id - ][setgid id] + ] + ] + + change-gid: func [id [string! integer!]][ + if string? id [ + unless id: get-gid id [return none] + ] + setgid id ] words: [ user: [word! | integer!] in globals do [ - repend boot-code ['change-id/user to-lit-word args/1] + repend boot-code either word? args/1 [['change-id/user/group mold args/1]] [['change-id/user args/1]] ] group: [word! | integer!] in globals do [ - repend boot-code ['change-id/group to-lit-word args/1] + unless empty? boot-code [change boot-code [change-id/user]] + insert boot-code reduce ['change-gid either word? args/1 [mold args/1][args/1]] ] ] ] \ No newline at end of file | |
| Dockimbel: 28-Sep-2010 | It seems that the PID file location recent change was a bad move, /var/run is by default only writable by root...To workaround that, user should create a sub-folder as root and then chown it to the application user to allow it to write PID files there : http://serverfault.com/questions/159334/what-permission-to-write-pid-file-in-var-run | |
| PeterWood: 2-Nov-2010 | I would prefer to force Cheyenne to execute the script as a real CGI Script as I am trying to run REBOL/Services as a CGI script under Cheyenne. Ideally, I don't want to have to change the REBOL/Services code. (I am migrating a REBOL/Services application away from its existing web server and hopefully to Cheyenne. In the longer term, it may be possible to convert it to a Cheyenne web app). Any hints on how to force Cheyenne to run a .cgi file as a real CGI script? | |
| Dockimbel: 16-Apr-2011 |
To open a console window for each worker process, you need to change
the CALL command line from %UniServe/uni-engine.r:
call join form to-local-file system/options/boot [" -qws " cmd]
Replace:
* CALL with CALL/SHOW
* -qws with -s
Also, in that case it is also more practical to reduce the worker
number to 1 using Cheyenne command line option: -w 1
| |
| Dockimbel: 17-Apr-2011 | No way to redirect those log files yet. You can change their path by patching %cheyenne.r file. You can also just delete them once Cheyenne started, if all goes well, they shouldn't reappear until next restart. | |
| Dockimbel: 17-Apr-2011 | Forking is done when Cheyenne starts, more precisely when the task-master service is loaded by UniServe. It starts with a default of 4 workers processes. If more than 4 simultaneous RSP or CGI requests are received, one or several workers are forked (up to 8). You can change those values in %cheyenne.r (search for pool-start and pool-max). It is planned to expose those values in the config file for easier access. | |
| onetom: 18-Apr-2011 | sometimes it seems it can detect the file change, sometimes it doesn't.. is cheyenne checking the modification date of the source file | |
| Dockimbel: 19-Apr-2011 | You need to change them in %cheyenne.r (I should add them to the config file some day). | |
| Dockimbel: 4-May-2011 | Max: I am very busy today, I am not sure I will have time to review your code now (you should send me a copy of the changed files first BTW). As you could see, supporting such feature at the config file level is complex because of config file being loaded only when HTTPd service starts (for historical reasons). I am not sure that initializing the HTTPd service ahead is a clean solution (the boot/ line has become a bit hard to read with this /no-start flag that loads and init HTTPd service...). The solution I had in mind was to extract the whole config file loading from %HTTPd.r and put it in %cheyenne.r. This is a deep and complex change, that is why I was waiting to have enough time to do it in a single working session. Anyway, I will examine your solution first. | |
| Dockimbel: 29-May-2011 | New revision 144: - added -f option to change working folder location - added -c option to load the config file from a new location See %changelog.txt for more details. | |
| Group: !REBOL2 Releases ... Discuss 2.x releases [web-public] | ||
| btiffin: 26-Apr-2008 |
Little bit more playing around, to see if +s was taking ... doesn't
seem so.
rebol []
probe system/script
change-dir %..
list-dir
ask "waiting"
c:\tools\rebol\appdata\rebview +s testing.r
...
words: none
]
waiting
** Script Error: list-dir expected dir argument of type: file url
unset
** Near: list-dir
ask "waiting"
>>
The ask is evaluated before the list-dir error And if list-dir
%. is used, it lists the dir, without a security box.
| |
| BrianH: 29-Dec-2009 | Right. File placement is a matter of chosing the default folders of the installer, as it does now. You can change those choices. | |
| Maxim: 29-Jun-2010 | and yes... you have to manually change the command-line arguments, but then the OS' editors break up in what I can't remember, I think rebol disapeared from the "installed applications" list, although the file association still worked. | |
| Ashley: 16-Jan-2011 | On Mac 2.7.8.2.5:
>> ls
** Script Error: path has no value
** Where: ls
** Near: switch type?/word :path [
unset! []
file! [change-dir path]
string! [change-dir to-rebol-file path]
w...
>> source speed?
test
test
... (fills console)
test
test
<code>
| |
| Group: !REBOL3 Extensions ... REBOL 3 Extensions discussions [web-public] | ||
| jocko: 30-Oct-2009 | Maxim, Brian, your suggestions were correct. Thanks I succeded with very few modifications to the example given by Carl: ( tool: Visual Studio 2003) - the source file extension must be changed from .c to .cpp for a cpp compilation - in reb-ext-lib.h change the line #define RXIEXT _declspec(dllexport) to #define extern "C" RXIEXT _declspec(dllexport) I have not fully tested the extension, but I was able to do a simple Text To Speak using windows SAPI5 | |
| Robert: 25-Mar-2011 | Ok, so I found out that the last number wasn't 0. When generating the header file I get this as last line: 116, 105, 97, 108, 105, 122, 101, 100, 34, 10, }; This is the line makeing problems. When I change it to: 116, 105, 97, 108, 105, 122, 101, 100, 34, 10, 0 }; it works. | |
| Group: !REBOL3 Priorities ... Project priorities discussion [web-public] | ||
| shadwolf: 27-Oct-2009 | portable fonts system working with VID/draw this means a font system than render the font for the same font file the same way on linux, macosX, windows seven, vista xp etc..., and being able to know precisely the size in pixel on screen of the characters from the font we are using any time and any momment ( this is related to area-tc and what we noticed developping it actually area-tc rendering engine / event system works only properly on windows XP due to limitations in rebol 2) 3) better draw dilect more hum light and flexible ( no need to give the coords and call the text instruction in draw bloack any time we want to change the color or the font style of a particular bunch of text drawn on screen) | |
| Group: !REBOL3 Schemes ... Implementors guide [web-public] | ||
| Graham: 19-Jan-2010 | I think in my ftp scheme I access port/data directly so I can stream to the file system .. so it would require a tiny change if there were two sep buffers | |
| Group: !REBOL3 GUI ... [web-public] | ||
| nve: 11-Dec-2010 | Maybe I'm doing something wrong... R3 current version: 2.100.110.3.1 It was released on: 2-Nov-2010/3:55:04.875 Your version is current. >> do %r3-gui.r3 Script: "R3 GUI - load and start" Version: $Id: $ Date: 9-Dec-2010/10:32:04+1:00 >> change-dir %test-framework == %test-framework >> list-dir core-tests.r cpl_2_100_110_3_1.log docs/ flags.r test-framework.r >> do %test-framework.r Script: "Untitled" Version: none Date: 16-Jul-2010/13:05:26+2:00 Testing... file: core-tests.r LOAD/next removed. Use TRANSCODE. Done, see the log file: /C/Documents and Settings/striker/Bureau/R3/test-framework/cpl_2_100_110_3_1.log Total: 1 Succeeded: 0 Failed: 1 Log file : file: core-tests.r failed, file parsing unsuccessful Total: 1 Succeeded: 0 Failed: 1 Why ? | |
| jocko: 24-Feb-2011 | if you use a request function to display a message, this is the cause of the problem: the request function from RMA is bugged (and also the alert). You should either correct in the RMA r3-gui.r3 file, or, better, overload it. change the words group by hgroup , and change the line doc (message) by text-area (message) | |
| Group: !REBOL3 ... [web-public] | ||
| Janko: 21-Jan-2010 | By that I mean it was untolerable slow on some VPS where I assume same disc was used for streaming media, update was taking seconds while I could on the same system open a 1M rebol data file change it and save it back in almost no time. I couldn't get it why this is happening, and this was at neglegibly small database. I moved whole app that uses sqlite to some vps where it's almost alone on whole server because of this. And at Site Assistant where I used sqlite only for "mailbox" for bots (to send them work) I had to switch to mysql for this (it was the same server that blocked this heavily) | |
| shadwolf: 26-May-2010 | maybe i wasn't clear. Sorry i readed my post and some things appears not to be clear anough... 1) Rebol runtime environement already exists that's the VM you install on your computer when you want to run scripts But a) it's not called a runtime environement b) it's need disappears when you use REBO/SDK to "hide" your industrial secrets or when you don't want on purpose the client to install or know that it's rebol behind. 2) by speudo compiling (byte code compilation) you allow people that need it to be a step closer to the hardware but keeping the portability effect so a rebol VM in my opinion should be able to run both a speudo binary file or a text script rebol file. Of course like in java people would feel the need to share their software with embeded Rebol Runtime Environement. 3) Having a runtime environement is the best modular way ... core will be the base then you have View and lot of othe modules that wil clip to rebol. for example if i put import "oracle" at the begining of my script then rebol runtime environement knows that he need the oracle package and goes to rebol.com to retrieve it and install it to the proper rebol runtime place in order for the vm to find it. Something close to what apt-get is to debian. REbol Environement doesn't comes with the whole thing but if the script tells it he can expend it selves in the fastest way. Well this runtime organisaton in fact already exists but it's not pushed to it's extend, you know the point where the good idea become the best idea. the rebol/view 2 implies a /desktop which implies a local scrit library (like a cache) to store the rebol script see the idea is there but once again it's not pushed to it's limits. Only rebgui used this system to store an extension to rebol. 4) by being closer to what people extend as an output you make them interessted in your input . To be more explicite by giving to peope what they are used to get in the end of their creation process then you allow them to be confident in your solution and to be more interressted on the way you propose to build your software. 5) i took java and .net as main example but if you look closely this is an expending tendency. For example Adobe Flash do that. 6) the other interrest in the compiled way is to merge the source code and the related resourcies at the same place (1.exe file for example) and then forbiding the people to change their contents ... and this leaded then to the skining my application modo. Wich is just the we don't merge in the resulting binary the resourcies . In rebol we can already easyly build a script merger with data to output a .r file containing both but then people can still extract the ressourcies and change them etc... | |
| BrianH: 10-Apr-2011 | Andreas, in the OSes with which I am familiar, you can't set a file to read-only and then count on that file staying read-only unless the user is asked for permission to change that setting. In REBOL you can. The security of a DOable %user.r depends on it not being writeable between when REBOL shuts down and when it starts up again. So that means using OS permissions to guard it, and those are based on user capabilities, not enough protection. The situation is different with %rebol.r since we only load it from the same location as the R3 executable, and that location can be protected with user permissions; this is why we can still DO %rebol.r in R3. | |
| Robert: 15-Jul-2011 | Converting a R2 DLL into a R3 one is really simple. I have done our DLLs in a way that I can compile them as R2 or R3 version. The only change is a .DEF file for the linker. Everything else is the same. | |
| Group: !REBOL3 /library ... An extension adding support for dynamic library linking (library.rx) [web-public] | ||
| shadwolf: 10-Feb-2010 | for example actually being lua ruby or python most of their "regular" use are to be merge as plugin into a host application that shares data with them Allowing to set up a base that will not change and an extention that will be faster to create ... This point is still in my opinion a strutural problem in rebol since in rebol data structure are hum ... special and cool. One thing you can't do in rebol and that will miss us alot is for example the hability to create a ready made structure in memory and map a file content directly to it. (For example in case of "memory dumped files" in C ...) I could provide a detailled example but i think most of you saw what was my point... | |
| Group: Core ... Discuss core issues [web-public] | ||
| Oldes: 3-Dec-2010 | Is it possible to change file-modes of directory? This doe not work: >> get-modes %/f/dir/ 'creation-date == 26-Oct-2010/16:55:30+1:00 >> set-modes %/f/dir/ compose [creation-date: (now)] ** Access Error: Cannot open /f/dir/ ** Near: set-modes %/f/dir/ compose [creation-date: (now)] | |
| BrianH: 29-Dec-2010 | However, TO-LOCAL-FILE? and TO-REBOL-FILE? aren't really that fundamental, and were originally written in REBOL, so it might be OK to change them if it can be done without breaking code. What are the specific differences you have found between the R3 and R2 versions? | |
| onetom: 20-Apr-2011 | the change history of what? r3 file storage? | |
| Henrik: 26-Apr-2011 | the CHANGE works, if I do it by hand. Then I can rename the file. | |
| PeterWood: 30-May-2011 | A bug? >> cur: what-dir == %/Users/peter/ >> cd %Code/Rebol == %/Users/peter/Code/Rebol/ >> cd cur ** Access Error: Cannot open /Users/peter/Code/Rebol/cur/ ** Near: change-dir to-file path >> change-dir cur == %/Users/peter/ Though this works: >> cd :cur == %/Users/peter/ | |
| 101 / 183 | 1 | [2] |